Задание 1. var A, B, C, F: boolean; i, j, k: integer;
begin for i := 0 to 1 do for j := 0 to 1 do for k := 0 to 1 do begin A := (i = 1); B := (j = 1); C := (k = 1); F := ((A and B) and C) = (A and (B and C)); Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F) end end.
Результат выполнения программы: A=False, B=False, C=False, результат сравнения:True A=False, B=False, C=True, результат сравнения:True A=False, B=True, C=False, результат сравнения:True A=False, B=True, C=True, результат сравнения:True A=True, B=False, C=False, результат сравнения:True A=True, B=False, C=True, результат сравнения:True A=True, B=True, C=False, результат сравнения:True A=True, B=True, C=True, результат сравнения:True
Задание 2. var a, b, c: integer;
begin for a := 1 to 9 do for b := 0 to 9 do for c := 0 to 9 do if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c) end.
uses GraphABC;
var x0, y0, x1, y1: integer;
begin
SetWindowSize(400, 400);//устанавливаем размер окна
x0 := WindowWidth;//ширина окна
y0 := WindowHeight;//высота окна
SetFontColor(clRed);//Устанавливаем цвет текста
TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу
x1 := WindowWidth div 2; //половина ширины окна
y1 := WindowHeight div 2;//половина высоты окна
SetFontColor(clBlue);
TextOut(x1, y1, 'Сергей');//Надпись посередине
SetFontColor(clYellow);
TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу
SetFontColor(clPurple);
TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу
SetFontColor(clGreen);
TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.
Программа была написана в проверьте, работает ли она в вашем Pascal.