Var a, d, n, i, otv: integer;
begin
read(a,d,n); - ввод всех значений
otv:=a; - в переменную где будет храниться
for i:=1 to n do ответ записываем начальный взнос
begin
a:=a+d; - увеличиваем в цикле взнос
otv:= otv + (a); - добовляем взнос к нашему ответу
end;
writeln(otv); - выводим ответ
end.
Поделитесь своими знаниями, ответьте на вопрос:
Записать на языке паскаль 1. длина ребра куба вводится с клавиатуры. вывести на экран площадь грани, площадь полной поверхности куба, объем куба
var r: real;
begin
writeln('введите ребро куба');
readln(r);
writeln('S грани =',sqr(r));
writeln('S полной поверхности =',sqr(r)*6);
writeln('V куба =',r*r*r);
end.