1)запрограммировать вывод на экран стихотворение: 10 поросят пошли купаться в море. 10 поросят резвились на просторе. один из них утоп – его сложили в гроб, и вот вам результат – 9 поросят… где в каждом куплете количество поросят уменьшается на 1. 2)запросить с клавиатуры целое число n. используя циклы, найти n! = 1 х 2 х…х (n-1) x n 3)1 кг творога стоит 115 руб. вывести на экран таблицу стоимости творога массой 100 г, 200 г, …, 900 г

186

374

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

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

ЕваЛя

Информатика

4,7(12 оценок)

Первая: program qwer; uses crt; var i, kol : integer; begin kol : = 10; for i : = 10 downto 1 do begin writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят резвились на просторе.'); writeln(kol,' один из них утоп – его сложили в гроб,'); kol : = kol - 1; writeln('и вот вам результат – ',kol,' поросят…'); end; end. вторая: program qwer; uses crt; var i, pr, n : integer; begin readln(n); pr : = 1; for i : = 1 to n do pr : = pr * i; write(pr); end.третья: program qwer; uses crt; var s, i : integer; begins : = 115; for i : = 1 to 9 dowriteln(i * 100,'г = ',i * 100 * s / 1000,'руб'); end.готово!