Проверочная работа «Условный оператор» PascalABC.NET

Вариант I

1.    Найдите ошибки в тексте программы:

Минимум из двух значений

var

  x,y: integer;

  min: integer;

begin

  write('Введите x и y: ');

  readln(x,y);

  if x<y then

    min := x

  else min := y;

  writeln('Минимум = ',min);

end.

2.    Найдите ошибки в тексте программы:

Определение четности числа

var x: integer;

begin

  write('Введите x: ');

  readln(x);

  if x mod 2 = 0 then

    writeln('Это четное число')

  else writeln('Это нечетное число');

end.

3.   Напишите программу для проверки кратно ли пяти введенное число:

var x: integer;

begin

writeln('Введите значение x ');

readln(x);

if x mod 5=0 then writeln ('Число кратно 5') else writeln ('Число не кратно 5')

end.

4. Отметьте условия, записанные правильно на языке Паскаль:

1. а≥0

2. х>0 or y<0
3. c≠10
4. (x>10) and (y<20)
5. x, y>0
6. x>0, y<0
7.d><0
8. -5<a<-10

9. x>=y
10. z=10
11. x=y=z

Вариант II

1.    Найдите ошибки в тексте программы:

Состоит ли двузначное число из одинаковых цифр

Код на PascalABC.NET:

var x: integer;

begin

  write('Введите двузначное число: ');

  readln(x);

  var c1 := x div 10;

  var c2 := x mod 10;

  if c1=c2 then

    writeln('Цифры числа совпадают')

  else writeln('Цифры числа не совпадают');

end.

2.    Найдите ошибки в тексте программы:

Проверка числа на двузначность

var x: integer;

begin

  write('Введите x: ');

  readln(x);

  if (x>=10) and (x<=100) then

    writeln('Двузначное число')

  else writeln('Не двузначное число')   

end.

3.    Напишите программу для проверки кратно ли трем введенное число.

var x: integer;

begin

writeln('Введите значение x ');

readln(x);

if x mod 3=0 then writeln ('Число кратно 3') else writeln ('Число не кратно 3')

end.

4. Отметьте условия, записанные правильно на языке Паскаль:

1. а≥0

2. х>0 or y<0
3. c≠10
4. (x>10) and (y<20)
5. x, y>0
6. x>0, y<0
7.d><0
8. -5<a<-10

9. x>=y
10. z=10
11. x=y=z

Вариант I

1.    Найдите ошибки в тексте программы

Минимум из двух значений

var

  x,y: integer;

  min

begin

  write('Введите x и y: ');

  readln(x,y)

  if x<y then

    min := x

  else min = y;

  writeln('Минимум = ,min);

end

2.    Найдите ошибки в тексте программы

Определение четности числа

var x: integer;

begin.

  write('Введите x: );

  readln(x)

  if x mod 2 = 0 then

    writeln(Это четное число')

  else writeln('Это нечетное число);

end.

3. Напишите программу для проверки кратно ли пяти введенное число. 4. Отметьте условия, записанные правильно на языке Паскаль:

1. а≥0

2. х>0 or y<0
3. c≠10
4. (x>10) and (y<20)
5. x, y>0
6. x>0, y<0
7.d><0
8. -5<a<-10

9. x>=y
10. z=10
11. x=y=z

Вариант II

1.    Найдите ошибки в тексте программы

Состоит ли двузначное число из одинаковых цифр

Код на PascalABC.NET:

var x: integer;

begin

  write(Введите двузначное число: ');

  readln(x);

  var c1 = x div 10;

  var c2 := x mod ;

  if c1=c2 then

    writeln('Цифры числа совпадают')

  else writeln('Цифры числа не совпадают);

end.

2.    Найдите ошибки в тексте программы

Проверка числа на двузначность

var x: integer

begin

  write('Введите x: ');

  readln(x);

  if (x≥10) and (x<=100) then

    writeln('Двузначное число')

  else writeln(Не двузначное число')   

end

3.     Напишите программу для проверки кратно ли трем введенное число.

4. Отметьте условия, записанные правильно на языке Паскаль:

1. а≥0

2. х>0 or y<0
3. c≠10
4. (x>10) and (y<20)
5. x, y>0
6. x>0, y<0
7.d><0
8. -5<a<-10

9. x>=y
10. z=10
11. x=y=z