In= I * X * Y, где
In - информационный объём памяти
I - глубина цвета
X*Y - кол-во точек изображения
In = 2*8*600*1200 = 11 520 000 бит = 1 440 000 байт = 1 406,25 Кбайт = 1,37 Мбайт
Вроде так
var a, b, c, a1, b1, c1: real;
begin
write('Введите a, b, c >>');
readln(a, b, c);
write('Введите a1, b1, c1 >>');
readln(a1, b1, c1);
if (a/a1 = b/b1) and (b/b1 = c/c1) then
writeln('Треугольники подобны') else
writeln('Треугольники не подобны');
<span>end.</span>
A - номер квартиры, начиная с 1
n - этаж
C:
n = 2*((a-1)/12)+2+((а-1)%12)/7
Pascal:
n := 2*((a-1) div 12)+2+((a-1) mod 12) div 7
выражение в одну строку
% это остаток от деления
a и n переменные целого типа, подразумевается, что происходит автоматическое округление при делении в меньшую сторону