Pascal, цикл для, составить программу.

4) Ввести 12 чисел. Определить сколько чисел кратно 5.

Question

Информатика

Антонин

13 октября, 05:44

Pascal, цикл для, составить программу.

4) Ввести 12 чисел. Определить сколько чисел кратно 5.

+5

Ответы (1)

Знаете ответ на вопрос?

Агафоклия · Answer 1

Program up1;

var e, w, q:integer;

begin

for i:=1 to 12 do

begin

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

read (q) ;

w:=q mod 5;

if w=0 then e:=e+1;

end;

writeln (e,' чисел кратных 5') ;

end.

Pascal, цикл для, составить программу.4) Ввести 12 чисел. Определить сколько чисел кратно 5.

Pascal, цикл для, составить программу.

4) Ввести 12 чисел. Определить сколько чисел кратно 5.