Истинность высказывания

Serjant0007

Проверить истинность высказывания: «Хотя бы одна из трех целых переменных x, y, z положительна». Позже выложу наработки, а то с планшета.
1 ответ

Serjant0007

Var
x,y,z: Integer;
f: Boolean;
Begin
Write('Введите X,Y,Z: '); Readln(x,y,z);
If (x>0) or (y>0) or (z>0) Then
f:=True;
Writeln(f);
Readln
End.