Question

Срочно нужны ответы, только подробно пожалуйста

Answer 1

Ответ:

[1]

1) begin. - точка ставится только в конце программы совместно с оператором end

2) write('Введите х: ); - строковый текст обязательно начинается с ' и обязательно заканчивается ', - в данном случае нет ' в конце

3) readln(x) - символ ; обязателен в конце оператора

4) if x div 2 = 0 then - div целочисленное деление. Для проверки на четность необходимо использовать mod - т.е. остаток от деления

5) writeln(Это четное число') - ошибка с '

6) else writeln('Это нечетное число); - ошибка с '

[2]

1) var x: integer - не указана ; в конце оператора

2) if (x≥10) and (x <= 100) then  - нет такого условного оператора ≥, есть >=

3) if (x≥10) and (x <= 100) then - чтобы число прошло проверку на двузначность, условие (x <= 100) должно быть строгим, т.е. (x < 100) или (x <= 99)

4) else writeln('Не двузначное число') - не указана ; в конце оператора

5) end - необходима точка в конце программы

[3]

2, 4, 7, 10, 11

[4]

var x: integer;

begin

   ReadLn(x);

   if x mod 5 = 0 then WriteLn('Число ', x, ' является кратным 5')

   else WriteLn('Число ', x, ' не является кратным 5')

end.

[5]

var x: integer;

begin

   ReadLn(x);

   case x of

   1: WriteLn('В понедельник 5 уроков');

   2: WriteLn('Во вторник 6 уроков');

   3: WriteLn('В среду 7 уроков');

   4: WriteLn('В четверг 6 уроков');

   5: WriteLn('В пятницу 5 уроков');

   else WriteLn('В данный день нет уроков');

   end;

end.