Помогите с паскалем.С клавиатуры вводятся 5 натуральных чисел. Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).
Answers & Comments
Bakalavr
Program test; var a,i:integer; begin for i:=1 to 5 do begin readln(a); if a mod 5 =0 then writeln('число ',a,' делиться нацело на 5'); end; end.
Answers & Comments
var a,i:integer;
begin
for i:=1 to 5 do
begin
readln(a);
if a mod 5 =0 then writeln('число ',a,' делиться нацело на 5');
end;
end.