1)доказать (путем перебора возможных значений), что для любых величин а, в, с типа boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны): (a and b) and c и a and (b and c). 2)найдите все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры.
151
407
Ответы на вопрос:
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. результат выполнения программы: 100 147
Зашифрую заменой букв на их порядковые номера ё - 07 ж - 08 получается 0708
Популярно: Информатика
-
vkutepova199904.10.2020 20:13
-
UnderTakerDie26.11.2022 03:24
-
Матюха200527.09.2020 23:34
-
antstuart03.06.2021 14:54
-
Renavalion18.05.2022 05:28
-
name6427.11.2022 22:02
-
2ihnik2123108.05.2020 08:23
-
dashayudina0418.07.2022 19:39
-
ayperi230.12.2022 16:26
-
Eddyp31.03.2021 22:57