1. Язык программирования? Pascal.
2. Популярный антивирусник? Аvast.
3. В чем измеряется коэффициент интеллекта? IQ.
4.<span>Национа́льная баскетбо́льная ассоциа́ция? NBA.
5. Сплав металлов? TITAN.</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>
Summa = 0
for i in range(100, 1000):
if i%2==0:
summa+=i
print(summa)
получается 247050
program z1;
uses crt;
var n,m,i:integer;
begin
repeat
writeln('Введите числа');
readln(n,m);
until n<m;
for i:=n to m do
begin
if i mod 2 =0 then write(i:4);
end;
end.
Я не знаю нужны тебе вопросы или слова,но вот схема