Паскаль. Составьте программу вычисления суммы 150 первых членов арифметической пр?
Паскаль. Составьте программу вычисления суммы 150 первых членов арифметической пр??грессии, если a1 = –200; d = 0,2.( с помощью repeat)
Гость
Ответ(ы) на вопрос:
Гость Program prg;
const
n = 150;
a1 = -200;
d = 0.2;
var
c : integer;
an : double;
begin
c := 1;
repeat
an := a1 + (c-1) * d;
write(an:5:2, ', ');
inc(c);
until c=n;
writeln;
end.
Не нашли ответ?
Похожие вопросы