Помогите пожалуйста составить программы, заранее благодарю
1) Найти факториал числа N
2) Найти сумму чисел в промежутке от M до N
Ответы
Ответ дал:
0
1)
var f,n,i:integer;
begin
readln(n);
f:=1
for i:=2 to n do f:=f*i;
writeln('Factorial= ',f);
end.
2)
var s,m,n,i:integer;
begin
readln(m); readln(n);
s:=0;
for i:=m to n do s:=s+i;
writeln('Summa= ', s);
end.
var f,n,i:integer;
begin
readln(n);
f:=1
for i:=2 to n do f:=f*i;
writeln('Factorial= ',f);
end.
2)
var s,m,n,i:integer;
begin
readln(m); readln(n);
s:=0;
for i:=m to n do s:=s+i;
writeln('Summa= ', s);
end.
Giammy:
Проверьте, код писал на телефоне.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад