Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о проекте и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
Помог бы, если бы условие было внятно сформулировано. О каких "всех четырех" числах речь?
Пожалуйста
:Begin
Writeln(2+4*3*2+6*5*4*3*2+8*7*6*5*4*3*2);
Readln;
End.
readln(n,m);
s:=0;
while n<=m do begin
if n mod 2=0 then begin {если четное то начинаем считать}
f:=1;
for j:=1 to i do {в цикле считаем факториал}
f:=f*j;
s:=s+f; {суммируем}
end; {if}
inc(n); end;{while}