Question

1. Выберите все строки, в которых условные операторы на языке Pascal записаны без ошибок: 1) if (x>0) and (x<=100) then y:=sqrt(x);2) if x>=10 then y:=y mod x;3) if (x>0) or (10*x)<100 then y:= x*х*х;4) if 0<x<10 then write (‘х - однозначное число’);5) if x=y then z:=1 else z:=x*y;6) if x>0 then y:=sqrt(x); write (‘y=’, y) else write (‘нет ответа’);7) if x<y then s:= x+y; p:=x*y else s:=0; p:=1;8) if x<>0 then y:=100/x;9) if x>0 then y:= 100 div x; else y:= 0;10) if 10 then k:= k+1;​

Answer 1

Ответ:

Варианты 1, 2, 5, 8

Answer 2

Из предложенных строк условных операторов на языке Pascal, строки без ошибок следующие:

1. if (x > 0) and (x <= 100) then y := sqrt(x);
2. if x >= 10 then y := y mod x;
3. if (0 < x) and (x < 10) then write('x - однозначное число');
4. if x = y then z := 1 else z := x * y;
5. if x <> 0 then y := 100 / x;
6. if x > 0 then y := 100 div x else y := 0;

Остальные строки содержат синтаксические ошибки:

3. Ошибка в выражении (x > 0) or (10 * x) < 100. Вероятно, вместо (10 * x) должно быть (10 * x) > 100.
4. Ошибка в этой строке заключается в том, что после else не может идти инструкция write. Необходимо использовать дополнительную конструкцию begin...end, чтобы охватить несколько инструкций после условия if.
5. Несколько ошибок в этой строке: отсутствует begin перед инструкцией s := x + y;, а также отсутствует begin перед инструкцией p := x * y;. Кроме того, в конце строки лишняя инструкция p := 1;.
6. Синтаксическая ошибка в if 10 then k := k + 1;. Условие должно быть булевым выражением, а здесь указано только число.

Итак, верные строки: 1, 2, 4, 5, 8, 9.