Осуществить перевод из десятичной СС в: 1) 0,1625 (4СС); 2) 0,00625 (8СС); 3) 0,00025 (16 СС).
283
498
Ответы на вопрос:
Var a: longint; n, i: integer; s: array [1..10000] of integer; begin read(n); a: =0; for i: =1 to n do read (s[i]); for i: =1 to n do if s[i]> =0 then a: =a+sqr(s[i]); writeln(a); end.
Популярно: Информатика
-
Piloti3p6i20.01.2020 08:18
-
ZEN2429.01.2022 06:27
-
Демон199721.02.2022 17:32
-
доминик1307.01.2023 19:43
-
наташа671020.03.2022 21:48
-
yuliya21626.11.2021 00:04
-
Рабка29.06.2020 23:50
-
az34358strelok839002.06.2020 20:31
-
andrejpuzanov9029.01.2020 20:19
-
sorunbaevp00gzg11.07.2022 23:41