Pascal, цикл для, составить программу. 4)Ввести 12 чисел. Определить сколько чисел кратно 5.
Answers & Comments
foxik6
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.
Answers & Comments
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.