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

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 ('Число отрицательно ');