Ответы на вопрос:
На Pascal:
Var W, i, N, B:integer;
Begin
Writeln(‘введите кол-во нужных чисел’);
Read(N);
W:=0;
For i to N do
Begin
Writeln(‘введите число’);
Read(B);
W:=W+(B*B);
end;
Writeln(‘Сумма квадратов=’, W);
end.
Var W, i, N, B:integer;
Begin
Writeln(‘введите кол-во нужных чисел’);
Read(N);
W:=0;
For i to N do
Begin
Writeln(‘введите число’);
Read(B);
W:=W+(B*B);
end;
Writeln(‘Сумма квадратов=’, W);
end.
Популярно: Информатика
-
Annuta8810.12.2022 16:52
-
diman1000007.04.2023 13:14
-
arturkill1230905.04.2022 22:59
-
aise0911.09.2020 13:22
-
помогитепж1923.09.2022 23:23
-
lilcutthroat03.06.2020 13:07
-
DOLBONAFT22.04.2021 12:19
-
ivanvasilionov12.01.2020 09:42
-
SerPol15.01.2023 21:40
-
Uprava7825.06.2023 21:07