Регистрация
tilkamilkap0ct2o
15.07.2021 10:35
Информатика
Есть ответ 👍

Жақсылық тұралы жыр
6-7 жолдан​

250
491
Посмотреть ответы 1

Ответы на вопрос:

olgakazakova20oy0u8c
olgakazakova20oy0u8c
4,7(17 оценок)
Var   i,m,n,s: integer; function fact(a: integer): integer; var l: integer; begin   l: =1;   for i: =2 to a do   l: =l*i;   fact: =l; end; begin   read(m);   readln(n);   s: =0;   for i: =m to n do   if i mod 2=0     then s: =fact(i)+s;   writeln('suma: ',s); end.

Популярно: Информатика