ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЭЛЕМЕНТОВ ЗАДАНОЙ ЧИСЛОВОЙ ПОСЛЕДОВАТЕЛЬНОСТИ(НА ПАСКАЛЕ)
197
465
Ответы на вопрос:
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.
Популярно: Информатика
-
олололо1230.12.2022 10:58
-
йцукен5619.09.2020 05:27
-
panerik618.12.2020 09:42
-
ГульшатГайипова200604.04.2020 05:25
-
Uliana1pa03.02.2023 12:49
-
Luda260004.09.2021 10:48
-
Bratok1611.11.2021 21:07
-
nutka198026.09.2021 16:01
-
hatasa7528.06.2023 03:46
-
arshavin109907.08.2021 13:32