Предмет: Информатика,
автор: Danywer
паскаль: Пух на дне рождении кролика впервый час съел 100 грамм меда.А за тем каждый час съедал на 50 грамм больше.Сколько меда он съест за t часов?
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
Исправил
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: topmozor
Предмет: Физика,
автор: gulzatalieva29
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: 01Д
Предмет: Обществознание,
автор: kalonka