Регистрация
Лораншу
20.10.2022 08:05
Информатика
Есть ответ 👍

var a,b,c,k:real;
begin;
write('Введите первое число прогрессии:');
readln(a);
write('Введите разность прогрессии:');
readln(b);
write('Введите число членов прогрессии:');
readln(c);
k:=((2*a+b*(c-1))/2)*c;
writeln(k);
end.

167
317
Посмотреть ответы 1

Ответы на вопрос:

КилоЛеденцов
КилоЛеденцов
4,8(17 оценок)
Var x: integer;   begin  writeln('введите число');   readln(x);   if x> 0 then write('число положительное и ')  else write('число отрицательное и ');   if x mod 2=0 then write('четное.')  else writeln('нечетное');   end.

Популярно: Информатика