У тебя сложные if. Включи операции внутри в блоки begin - end
744 бита (.................)
N = int(input("n = "))
for i in range(0,n+1):
print (i)
2^33= 8589934592, 8589934592бит = 1073741824 байт = 1024МБ.
Потребуется 2 диска по 600МБ
Var a,b,c,d,f:integer; begin read (a,b,c,d,f); if a mod 2 = 0 then writeln ("Число четное") else нечетное. Задаешь команду на кол-во
var a,b,c:real; read (a,b) if a=b then c = a*b else c = a+b
Краткое решение <em>(без оформления)</em>