Спаскалем.с клавиатуры вводятся 5 натуральных чисел. определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).
183
410
Ответы на вопрос:
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.
Популярно: Информатика
-
vitlikkushnirp08qv422.06.2021 13:20
-
jungkook01099716.10.2021 17:28
-
nastagaeva067214.07.2020 07:59
-
Petrov20010425.06.2022 09:19
-
ааааннннгггшим19.05.2020 10:33
-
Zigmynda1107.08.2022 14:24
-
shijoatova4808.10.2022 06:15
-
Pa3goJI6aù08.05.2022 23:26
-
dina5364624.01.2021 04:51
-
vafla312118.02.2023 23:36