Question

С клавиатуры вводят 4 числа. Определить сколько среди них кратных 9. Помогите с подробным решением пж

Answer 1

Ответ:

program kratnoe;

var mas: array [1..4] of Integer ;

i, c: integer;

begin

for i:=1 to 4 do

begin

writeln('Введите число ', i);

readln(mas[i]);

if mas[i] mod 9 =0 then c:=c+1;

end;

writeln(c, ' чисел , кратных девяти');

end.

Объяснение:

program kratnoe;

var mas: array [1..4] of Integer ; // заводим массив из четырех чисел

i, c: integer; // i для использования массива, а с счётчик кратных чисел

begin

for i:=1 to 4 do // цикл присваивает i значения от 1 до 4

begin

writeln('Введите число ', i);

readln(mas[i]); // считываем элемент массива

if mas[i] mod 9 =0 then c:=c+1; // проверяем кратно ли число 9, если кратно, то к счётчику добавляем единицу.

end;

writeln(c, ' чисел , кратных девяти'); // распечатываем количество кратных девяти.

end.