Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ

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
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам