Есть ответ 👍

ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЭЛЕМЕНТОВ ЗАДАНОЙ ЧИСЛОВОЙ ПОСЛЕДОВАТЕЛЬНОСТИ(НА ПАСКАЛЕ)

197
465
Посмотреть ответы 2

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


Объяснение:

А какая последовательность какая?


program p;

var a,b: integer;

begin

a: =1;

repeat begin

writeln('введите число: ');

readln(b); if b< 0 then a: =a*b;

until b=0; writeln('ответ: ',a);

readln; end.

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