Есть ответ 👍

Напишите программу на языке pascal для решения следующей : зная количество кроликов, необходимо вычислить количество полностью заполненных клеток для них. если известно, что в клетку можно посадить по 3 кролика.

180
368
Посмотреть ответы 2

Ответы на вопрос:


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.
ева518
4,4(28 оценок)

А-м-в-е     т-о-с-х

Популярно: Информатика