wochdudj
04.04.2021 08:32

2. При некоторых условных операторов ошибки. Найдите эти операторы

и укажите эти

1. If 7 then k:=k+1;

2. If x 8 and x<15 then x:=8 else x:=3;

3. If a then b:=a;

4. If a then a:=a+2; else b:=b-1;

5. If a b then a:=a+3; b:=b+1 else a:=a-2;

3. Выберите верный вариант ответа

A) Условный оператор if a mod 2 0 then write ('Да') else write ('Нет') позволяет определить,

является. ли число а:

1) целым

2) нечетным

3) чётным Б) Условный оператор if (a mod 2=0) and (a mod 3= 0) then write ( Да') else write ('Her') позволяет определить, является ли число а:

1) кратным двум и трем

2) не кратным двум и трем

3) кратным двум, но не кратным трем

4) не кратным двум, но кратным трем

4. Дана программа:

A) var x, y: integer; begin readln (x); readin (y); if (x < 20) and (y <= 10)then writeln (ДА') else writeln (HET) end.

Было проведено 5 запусков этой программы, при которых в качестве значений переменных х и у вводились следующие пары чисел: (10, 25); (15, 20); (20, 15); (25, 30); (20, 10). Сколько было запусков, при которых программа напечатала «ДА»?

Б) var x, y: integer; begin readlin(x); readln(y); if (x > = 10) and (y < 20)then writeln ('ДА') else writeln (HET) end.

Было проведено 5 запусков этой программы, при которых в качестве значений переменных х и у вводились следующие пары чисел: (10, 25); (10, 15); (15, 20);(10,10); (20, 20). Сколько было запусков, при которых программа напечатала «ДА

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
longassride
13.11.2021 03:08
1.                                        

program raf105;

var abc,a,b,c: integer;

begin

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

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= c*100 + b*10 + a;

writeln('Число наоборот: ',abc);

end.

2.                                        

program raf105;

var abc,a,b,c: integer;

begin

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

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= b*100 + c*10 + a;

writeln('Первое число переместили в конец: ',abc);

end.

                                         PascalABC 3.4.2
0,0(0 оценок)
Ответ:
AlexeyB1000
01.11.2020 08:51
if5                                                      

program raf105;

var a,b,c,po,ot: integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if a > 0

 then po+= 1;

if a < 0

 then ot+= 1;

if b > 0

 then po+= 1;

if b < 0

 then ot+= 1;

if c > 0

 then po+= 1;

if c < 0

 then ot+= 1;

writeln('Количество положительных чисел: ',po);

writeln('Количество отрицательных чисел: ',ot);

end.

if6                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a > b

 then writeln(a)

 else writeln(b);

end.

if7                                                      

program raf105;

var a,b: real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a < b

 then writeln('1')

 else writeln('2');

end.

Язык PascalABC 3.4.2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота