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

Question

Информатика

Авдий

1 ноября, 11:35

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

+4

Ответы (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.