Помогите с паскалем. С клавиатуры вводятся 5 натуральных чисел. Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).

Question

Информатика

Егоня

6 ноября, 17:28

Помогите с паскалем. С клавиатуры вводятся 5 натуральных чисел. Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).

+5

Ответы (1)

Знаешь ответ?

Васильюшка · Answer 1

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.