Предмет: Информатика, автор: aliagaev953

кто нибудь пожалуйста помогите прям срочно нужно ​

Приложения:

aliagaev953: ребята кто сможет сделать? сделайте пожалуйста только нормально пожалуйста
soabdulloh71: на каком языке программировании
aliagaev953: всмысле?
aliagaev953: я просто не разбираюсь по информатике
soabdulloh71: ну так на java можно
soabdulloh71: он не требует программы для работы он работает на веб браузере
aliagaev953: ты есть вк
aliagaev953: ???
aliagaev953: давай может там спишемся?
aliagaev953: сделай как сможешь но правильно чтоб было

Ответы

Автор ответа: FakeDeveloper
1

Язык — Java

1.

import java.util.Scanner;

public class Znanija {

 public static void main(String args[]) {

int amount = 0, i = 1, number;

  Scanner input = new Scanner(System.in);

for(; i<=10; i++) {

number = input.nextInt();

if(number%3 == 0) {

amount += 1;

}

}

System.out.println("\nNumber of multiples of 3: " + amount);

}

}

2.

import java.util.Scanner;

public class Znanija {

   public static void main(String args[]) {

     int[] array = new int[10];

     

     Scanner input = new Scanner(System.in);

     

     for(int i = 0; i<array.length; i++) {

         array[i] = input.nextInt();

     }

     

    //Сортитовка пузырьком

for (int i = 0; i < array.length; i++) {

//Новая индексная переменная j, которая в дальнейшем будет проверять, ни больше ли неё следующая цифра

          for (int j = 0; j < array.length - i - 1; j++) {

//Проверка

             if (array[j] > array[j + 1]) {

//Обмен значениями между  не сортированными элементами

                  int temp = array[j];

                  array[j] = array[j + 1];

                  array[j + 1] = temp;

              }

          }

      }

System.out.println("\nMaximum multiple of 3: ");

      for (int i = 0; i < array.length; i++) {

           if(array[i]%10 == 3 && array[i]>array[i-1]) {

          System.out.print(array[i]);

      }

}

 }

}


restIess: //1
var
x, i, n, counter : integer;
begin
counter := 0;
readln(n);
for i := 1 to n do begin
readln(x);
if x mod 10 = 3 then
counter := counter + 1;
end;
writeln(counter);
end.
aliagaev953: это первое задание ?
restIess: угу
aliagaev953: а второе?
restIess: var
x, i, n, _max : integer;
begin
_max := -1;
readln(n);
for i := 1 to n do begin
readln(x);
if (x mod 10 = 3) and (x > _max) then
_max := x;
end;
if x <> -1 then
writeln(_max)
else
writeln('В последовательности нет чисел кратных 3');
end.
aliagaev953: такой вопрос в первом задание самая первая строчка //1 это что ?
restIess: это так комментарии в паскале обозначаются, указал то, что это первая задача, можешь просто удалить эту строку
aliagaev953: хорошо
aliagaev953: надеюсь все правильно
aliagaev953: спасибо большое ))))
Похожие вопросы
Предмет: Русский язык, автор: Seinur16