Составить программу для нахождения суммы последовательности чисел произвольного диапазона(паскаль)
140
450
Ответы на вопрос:
program nt;
var i, s, n: integer;
begin
writeln('vvedi n');
readln(n);
s: =0;
for i: =1 to n do begin x: =-10+random(200); s: =s+x; end;
writeln('s=',s);
end.
Популярно: Информатика
-
avraval200926.10.2020 22:55
-
xomahgf15.01.2021 15:21
-
Отличница5827402.06.2020 15:05
-
arinab01p0c2kd08.06.2023 03:48
-
tyupina201815.11.2022 15:57
-
lizaskiba1407200313.09.2022 09:00
-
9Единорожка111111116.11.2020 05:58
-
leryush115.02.2021 00:59
-
pRoToTyPe95wF26.01.2021 18:16
-
Азиза419018.01.2020 16:34