Компьютер генерирует два случайных целых числа и выводит пример на сложение. Пользователь вводит свой ответ. Компьютер сообщает "верно" или "неверно". Затем компьютер генерирует пример на умножение и также сообщает "верно" или "неверно".
а) “Солнце есть спутник Земли”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность, и она = ложьб) “2+34”не логическое высказывание, ничего не утверждаетв) “сегодня отличная погода”;логическое высказывание, можно проверить задав критерий понятия "отличная погода"г) “в романе Л.Н. Толстого “Война и мир” 3 432 536 слов”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинность например для текста на английском языкед) “Санкт-Петербург расположен на Неве”;логическое высказывание т.к создаёт утверждение и его можно проверить его истинностье) “музыка Баха слишком сложна”;в принципе логическое высказывание, но сложно придумать пример как можно проверить его истинностьж) “первая космическая скорость равна 7.8 км/сек”;для каждой планеты своя космическая скорость, для земли будет истинна, для марса ложь - логическое высказываниез) “железо — металл”;констатация факта, не логическое утверждениеи) “если один угол в треугольнике прямой, то треугольник будет тупоугольным”;логическое утверждение, которое ложьк) “если сумма квадратов двух сторон треугольника равна квадрату третьей, то он прямоугольный”.логическое утверждение, его можно проверить.
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.