Задача в паскале(Pascal ABC) Лыжник начал тренировки с пробегом в 10 км, каждый день он...

Question

Задача в паскале(Pascal ABC)

Лыжник начал тренировки с пробегом в 10 км, каждый день он увеличивал длину пробега на 2 км. Сколько он пробжит км на 10-ый день?

Answer 1

var
a,b,i:integer;
begin
i:=0;
a:=10;
b:=0;
for i:=1 to 10 do
begin
b:=b+a;
a:=a+2;
end;
writeln('на 10 день он пробежит ',a,'км, а всего ',b,'км');
end.