Паскаль: Пух на дне рождении кролика впервый час съел 100 грамм меда.А за тем каждый час съедал на 50 грамм больше.Сколько меда он съест за t часов?
Паскаль: Пух на дне рождении кролика впервый час съел 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.
Гость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.
Не нашли ответ?
Похожие вопросы