PASCAL
program qq;var a,b,s,p : integer;beginwriteln('Введите стороны прямоугольника');
2)Пишу на QBasic
INPUT A
IF A MOD 3 =0 THEN
PRINT "да"
ELSE
PRINT "нет"
END IF
3)
INPUT B
IF A>B THEN
C=A+B
A=A*B
B=C
C= A+B
B=A*B
A=C
1 - 3
2 - 56
3 - 8
4 - 1
5 -
1? - х=53
2? - х
3? - i
1 задание 1000кб 1500/75=20*50=1000
но я не математик :)