Question

1. Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок.
if x>=10 then y:=y mod x;
if x=y then z:=1; else z:=x*y;
If 0<x<10 then write (‘х - однозначное число’);
If (x>0) and (x<=100) then y:=sqrt(x);
If (x>0) or (10*x)<100 then y:= x*х*х;
if x>0 then y:=sqrt(x); write (‘y=’, y) else write (‘нет ответа’);
2. Выберите строки, в которых условные операторы на языке Pascal записаны без ошибок.
if 10 then k:= k+1;
if x>0 then y:= 100 div x; else y:= 0;
if x<>0 then y:=100/x;
if x<y then S:= x+y; P:=x*y else S:=0; P:=1;
if (x mod y=0) then else writeln(‘no’)
if x>0 or y>0 then k:= k+1 else k:= 0;