Question

С клавиатуры вводятся 18 чисел. найти сумму всех чисел кратных 4.программу написать, используя 3 переменных и оператор цикла Repeat -Until

Answer 1

program raf105;

var a:array[1..18] of integer;

b,i:integer;

begin

writeln('Вводите числа по очереди');

repeat

 i:= i+1;

 readln(a[i]);

 if (a[i] mod 4)=0

   then b:= b+a[i];

until i=18;

writeln('Сумма чисел кратных четырём: ',b);

end.

Язык программирования PascalABC

Answer 2

Для нахождения суммы всех чисел, кратных 4, можно использовать оператор цикла Repeat-Until. В данном случае, используем 3 переменные: одну для считывания числа с клавиатуры, вторую для подсчета суммы, и третью для счетчика введенных чисел.

Вот программа на языке псевдокода, которая выполняет это задание:

bashCopy code
Пусть sum = 0       // переменная для суммы чисел кратных 4
Пусть count = 0     // счетчик введенных чисел
Пусть num = 0       // переменная для считываемого числа

Повторять
    Вывести "Введите число:"
    Считать num
    
    Если num кратно 4 Тогда
        sum = sum + num
    Конец Если
    
    count = count + 1
    
Пока count < 18

Вывести "Сумма чисел, кратных 4, равна: " + sum

Эта программа будет считывать 18 чисел с клавиатуры, проверять, является ли каждое из них кратным 4, и прибавлять его к общей сумме, если это условие выполняется. В конце выведет сумму всех чисел, которые были кратны 4.