Информатика, опубликовано 2018-08-22 21:51:54 by Гость
Помогите с паскалем.С клавиатуры вводятся 5 натуральных чисел. Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на