Начнем с утверждения, что это была блондинка, потому что таких утверждений два. Если II сказал правду, то второе его утверждение ложно и блондинка была в шляпе. Тогда утверждение I о брюнетке - ложь. Это рассуждение иллюстрирует вторая сверху таблица. В то же время, будет ложным утверждение IV об отсутствии очков и получается, что была блондинка в шляпе и в очках. В этом случае ложно утверждение III о том, что это была рыжая. Удостоверяемся, что противоречий в цепочке рассуждений нет. Окончательно: это была блондинка в шляпе и очках. Каждый свидетель дал одно истинное показание и одно ложное.
Прочие проверки можно не делать, считая задачу корректной.
begin hidecursor; repeat write('Сторона квадрата от 20 до 100 a='); read(a); until a in [20..100]; repeat writeln('Введите 2 числа для определения соотношени m<n:'); read(m,n); until m<n; clearwindow; k:=m/n;//отношение kg:=windowwidth div a+1; //кол. кв. по горизонтали kv:=windowheight div a+1; //по вертикали for j:=1 to kg do for p:=1 to kv do begin for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте begin kvadrat; x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k); x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k); x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k); x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k); end; x1:=a*(j-1); y1:=a*(p-1); //на новое место x2:=a*j; y2:=a*(p-1); x3:=a*j; y3:=a*p; x4:=a*(j-1); y4:=a*p; end;
program count;
var a, b, s, p: real;
begin
writeln (‘Введите значения длин двух сторон прямоугольника‘ );
readln (a, b);
s := a * b;
writeln (‘Площадь равна ‘, s);
р := 2 * (a+b);
writeln (‘Периметр равен’, р);
end.