
Теодосьевич
4 год назад
Задание:Подсчитать сумму 1 + 2 + 3 +...N Где, например, 5 --факториал числа 5 и 5 = 1*2*3*4*5Формат ввода:На вход подается два натуральное число n не превосходящих 10.Формат вывода:Целое число - результат вычисления формулы.Пример входных данных5Пример выходных данных153Пояснение:Отсутствует.На паскале
ОТВЕТЫ

Lyubka
Nov 11, 2020
program hello;
var i,x,y,y1:integer;
begin
y:=1;
y1:=0;
write('Введи число ');
read(x);
while x>=1 do
begin
y:=1;
for i:=1 to x do
begin
y:=y*i;
end;
y1:=y1+y;
x:=x-1;
end;
write(y1:2);
readln;
end.
780
Смежные вопросы: