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

Найти произведение всех натуральных чисел от 1 до 10
мой вариант, не уверена

ОТВЕТЫ

var i,s:integer;

Begin

s:=1;

for i:=1 to 100 do s:=s*i;

writeln(s);

end.


113
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам