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

Question

Информатика

Аврея

4 июня, 22:07

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

+1

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