Напишите программу на языке pascal для решения следующей : зная количество кроликов, необходимо вычислить количество полностью заполненных клеток для них. если известно, что в клетку можно посадить по 3 кролика.
180
368
Ответы на вопрос:
Var a,b,c: integer; begin writeln('введите число кроликов'); readln(a); c: =0; for b: =1 to a do begin if (b mod 3 = 0) then c: =c+1; end; writeln(c ,' клетки будут полностью заполнены'); end.
Популярно: Информатика
-
alinavinokutov21.12.2022 18:21
-
ПрохладныйВетер20.12.2022 19:25
-
Farman200103.07.2022 01:10
-
fargustyana26.04.2021 03:17
-
професорАртём19.07.2020 20:33
-
alexksyx02.11.2022 22:36
-
НикитаПахомов119.09.2022 15:01
-
Physic77722.02.2022 08:14
-
200516171802.05.2021 17:15
-
Вика200303302.08.2021 15:42