Учу бэйсик, а надо сделать на паскале вот такую програмку
найти сумму n-членов арифметической прогрессии, первый член которой a, разность b
край, печаль беда
Ответы на вопрос
Ответил milner13
0
program n1;
var n:integer;
a,b,s:real;
begin
write ('введите значения a, b, n')
readln (a, b, n);
s:=((2*a+(n-1)*b)/2)*n;
writeln (s);
end.
P.S: Извините, что так долго. Просто я с телефона сижу.
var n:integer;
a,b,s:real;
begin
write ('введите значения a, b, n')
readln (a, b, n);
s:=((2*a+(n-1)*b)/2)*n;
writeln (s);
end.
P.S: Извините, что так долго. Просто я с телефона сижу.
Новые вопросы