// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
Отнимается один от числа кроме 0
Задача 25:
2^9+2^9=1024
2^7=128
2^4+2^5=48
2^5+2^2=36
1024+128+48+36=1236
Ответ: 9974552(это станет двойки)
F(5)=F(4)*7
F(4)=F(3)*6
F(3)=F(2)*5
F(2)=F(1)*4=1*4=4
F(3)=4*5=20
F(4)=20*6=120
F(5)=120*7=840
Ответ: f
Знаю только для примеров и уравнений называется PhotoMath