1. Базовая алгоритмическая структура
разветвления в языке Паскаль — …
Вставьте пропущенные слова.

2. Какие операторы записаны без ошибок?
А) If a> 0 Then x := a Else y: = b;
Б) If a> 0 Then x = a; Else y = b;
В) If a> 0 Then x = a; Writeln (x) else y =
b; Writeln (y)

3. Какое значение будет предоставлено
переменной x в результате выполнения
оператора
If a> 0 Then x: = a + 1 Else x: = 2 * a;
Если значение переменной a равнo 5;
A) -15;
B) 6;
D) 10?
4. Составьте программу, которая
спрашивает пользователя, который час, и
выводит на экран соответствующее
пожелание — «Доброе утро!»,
«Здравствуйте!», «Добрый вечер!» или
«Доброй ночи!». Для каждого пожелания
.выберите соответствующий цвет.
5 Компьютер должен перемножить два
числа - 167 и 121. Если их произведение
превышает 2000, то компьютер должен
напечатать текст ПРОИЗВЕДЕНИЕ
БОЛЬШОЕ, иначе текст ПРОИЗВЕДЕНИЕ
МАЛЕНЬКОЕ. После этого компьютер в
любом случае должен напечатать само
произведение.

Koshmmarik Koshmmarik    2   04.04.2020 03:13    3

Ответы
shorgk shorgk  12.10.2020 13:58

1. if

2. A

3. B

4.

var a : integer;

begin

writeln('Который час?');

readln(a);

if (a > 4) and (a < 12) then writeln('Доброе утро')

else if (a >= 12) and (a < 17) then writeln('Добрый день')

else if (a>=17) and (a < 21) then writeln('Добрый вечер')

else if (a >= 21) and (a <= 4) then writeln('Доброй ночи');

end.

5.

var

a : integer := 167;

b : integer := 121;

c : integer;

begin

c := a*b;

if c > 2000 then writeln('Произведение большое')

else writeln('Произведение маленькое');

writeln(c);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика