Question

Выберите из приведённых фрагментов кода программы, написанной на языке Pascal, те, в которых представлены условные операторы.

if X <> 0 then Y := 5 / X;

Var C: Char; X: Real; i: Integer;

case X of 0: WriteLn ('Ложь '); 1: WriteLn ('Истина '); End;

if X >= 0 then WriteLn ('Число положительно ') else WriteLn ('Число отрицательно ');

Begin WriteLn ('Введите число: '); ReadLn (X); End.

Answer 1

if X <> 0 then Y := 5 / X;

case X of 0: WriteLn ('Ложь '); 1: WriteLn ('Истина '); End;

if X >= 0 then WriteLn ('Число положительно ') else WriteLn ('Число отрицательно ');