Предмет: Информатика,
автор: An333
Помогите с паскалем.С клавиатуры вводятся 5 натуральных чисел. Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: История,
автор: GVR55
Предмет: Русский язык,
автор: fishka210389
Предмет: Английский язык,
автор: dasha7787
Предмет: Геометрия,
автор: Fantom55
Предмет: Геометрия,
автор: cfif0505