Под "г" не знаю как...............
Список учеников класса, оценки учеников за контрольную работу по информатике, периметры нескольких прямоугольников (последнее не точно)
При использовании палитры из 65536 цветов для хранения одного пикселя требуется log(2)65536 = 16 бит. Память для хранения изображения: 78*78*16 бит = 97344 бит
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
C:=A-B;
if C = 0 then WriteLn('Ввели равные числа')
else WriteLn('Ввели не равные числа')
End.