Artobotik
23.07.2022 22:48

Всем привет решить эти задания, я не понимаю эту тему вообще. Желательно с подробным ответом)

Приведена программа, записанная на пяти языках программирования.

1)Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(14; 13), (7; -3), (3; 0), (17; 12), (20; -2), (1; 7), (11; 12), (10; 5), (5; 8).
Сколько было запусков, при которых программа напечатала «НЕТ»?
2)Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(2; -3), (21; 11), (-1; 1), (10; 13), (18; 7), (-3; 0), (20; 7), (16; 6), (15; 5).
Сколько было запусков, при которых программа напечатала «ДА»?
3)
Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(1; 12), (19; -3), (-5; 0), (16; -9), (18; -3), (-3; -9), (12; -1), (11; 0), (10; 10).
Сколько было запусков, при которых программа напечатала «НЕТ»?
4)Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел:
(20; -2), (1; 16), (11; -5), (2; -3), (13; 4), (2; 0), (2; 8), (-5; 7), (14; -6).
Сколько было запусков, при которых программа напечатала «НЕТ»?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
CCQ
14.12.2021 21:13
{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.
0,0(0 оценок)
Ответ:
iruha07082001
14.12.2021 21:13
{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота