Регистрация
Стивен12
Есть ответ 👍

Тест. "нова українська література" творчість т.шевченка

147
182
Посмотреть ответы 1

Ответы на вопрос:

lesikviktoria47
lesikviktoria47
4,7(50 оценок)

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.

Объяснение:

Популярно: Українська література