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

Question

Информатика

Рубен

12 июня, 20:58

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

+2

Ответы (2)

Знаете ответ на вопрос?

Флора · Answer 1

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.

Тасюта · Answer 2

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.