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

Var

m, t, s, i:integer;

begin

Write ('Сколько часов Пух не вставал из-за стола: ') ;

Readln (t) ;

if t=1 then Writeln ('через 1 час - 100 грамм')

else

begin

s : = 100;

m : = 100;

for i: = 2 to t do

begin

s : = s+50;

m : = m + s;

end;

Writeln ('через ', t,' часов', m,' грамм') ;

end;

end.

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.