Самостоятельная работа «Условный оператор в Pascal»

4 варианта.
скачать

1. Ниже приведена программа. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (1, 2); (11, 2); (1, 12); (11, 12); (–11, –12); (–11, 12); (–12, 11); (10, 10); (10, 5). Сколько было запусков, при которых программа напечатала «Нет»?

var s, t: integer;
begin
    readln(s);    readln(t);
    if (s > 10) or (t > 10)
        then writeln('ДА')
        else writeln('НЕТ')
end.

2. Ниже приведена программа. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (6, 4); (7, 8); (8, 5); (5, 6); (–11, 10); (–5, 7); (–2, 2); (4, 5); (8, 6). Сколько было запусков, при которых программа напечатала «ДА»?

var s, t: integer;
begin
    readln(s);    readln(t);
    if (s < 6) or (t < 6)
        then writeln('ДА')
        else writeln('НЕТ')
end.

3. Ниже приведена программа. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (9, 10); (11, 5); (–2, 8); (9, 9); (2, 8); (–1, 3); (–4, 5); (10, 9); (4, –3). Сколько было запусков, при которых программа напечатала «НЕТ»?

var s, t: integer;
begin
    readln(s);    readln(t);
    if (s > 8) and (t > 8)
        then writeln('ДА')
        else writeln('НЕТ')
end.