написать на pascal ABC:Начав тренировки, пловец в 1-ый денек проплыл 20

Написать на pascal ABC:
Начав тренировки, пловец в 1-ый денек проплыл 20 метров . Каждый следующий денек проплывает на 2 метра больше чем в предшествующий . Отыскать суммарную сумму расстояния за неделю

Задать свой вопрос
Тимур Бунаев
"суммарную сумму" )))
Михон Харин
:D
Виталя Даниелян
просто сумму)
1 ответ
Var d,s:real; i:integer;
begin
d:=20; s:=d;
for i:=2 to 7 do
 begin
 d:=d+2;
 s:=s+d;
 end;
writeln('s = ',s);
end.

Итог:
s = 182
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт