Ответы на вопрос:
1.
program z;
var n,i:integer; s:real;
begin
writeln('Введите число n'); readln(n);
for i:=1 to n do
begin
s:= (n*(n+1))/2; end;
writeln(s);
end.
2. program z2;
var s,i,n:integer;
begin
writeln('Введите число n '); readln (n);
s:=1;
for i:=1 to n do s:=s*i;
write(s); end.
Объяснение:
Популярно: Информатика
-
викуша13118.06.2020 02:32
-
Vladrus2006XD08.03.2023 19:08
-
gahakadbobo2220.02.2021 08:40
-
geamget25.01.2021 15:41
-
homka1607200623.07.2020 04:28
-
Bon200019.05.2020 23:54
-
alligator505.02.2020 11:08
-
Makcuм16.01.2020 09:43
-
555555Рок111105.06.2023 23:06
-
666Dim01.06.2023 19:21