Question

Добавьте комментарий к программе с оператором цикла

 

Я составила программу ,но не знаю правильно или нет ,проверьте пожалуйста и добавьте комментарий

 

program Metka;

label M1;

var x: shortint;

begin

M1:writeln ('x>100')

readln(x);

if x<100 then GOTO M1

end.

Answer 1

program Metka;
\ Даем имя метке
 label M1;
\ Даем имя переменной х
var x: shortint;
\ Начало программы
begin
\ Выводим текст с просьбой ввода числа
M1:writeln ('Введите x>100');
\ Запрос на ввод числа
readln(x);
\ Если введенное число <=100 то идем на М1
if x<=100 then GOTO M1
\ Конец программы
end.

Два недочета
1) нет точки с запятой после writeln ('x>100')
2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться.
3) Желательно попросить ввести х>100 - слово Введите - не лишнее