Задача №1var a,b,c:real;begina:=40;b:= 10;b:= a/2 *b;if a < b then c:= b -aelsec:= a - 2*b;writeln('c =', c);end.Задача №2var a,b,c:integer;begina:=5;a:= a +6;b:= -a;c:= a- 2*b;writeln('c =', c);end.
Получим 45 трехзначных чисел
CLS
<span>
N = 1</span><span>
FOR i = 1 TO 9</span><span>
FOR j = 0 TO 9</span><span>
FOR k = 0 TO 9</span><span>
IF i + k = j THEN</span><span>
PRINT N; i * 100 + j * 10 + k</span><span> N = N + 1</span><span>
END IF</span><span>
NEXT k</span><span>
NEXT j</span><span>
NEXT i
Программа выдает 45 таких чисел
</span>
24 бита ×<span> 800 </span>×<span> 600 = 11 520 000 бит = 1 440 000 байт</span>