Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Паскаль: Пух на дне рождении кролика впервый час съел 100 грамм меда.А за тем каждый час съедал на 50 грамм больше.Сколько меда он съест за t часов?

Ответ оставил Гость

Var med, t, i: integer;
begin
med:=100;
writeln(Введите t>> );
read(t);
for i:=2 to t do
begin
med:=med+i*50;
writeln(med, через , i, часов);
end;
writeln(med, грамм);
end.