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

Question

Информатика

Авдий

15 января, 22:16

Помогите с паскалем. С клавиатуры вводятся 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.