Задание 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.
Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.
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.
Результат выполнения программы:
100
147