Добавьте комментарий к программе с оператором цикла Я составила программу ,но не знаю правильно или нет ,проверьте пожалуйста и добавьте комментарий program Metka; label M1; var x: shortint; begin M1:writeln ('x больше 100'...
Добавьте комментарий к программе с оператором цикла Я составила программу ,но не знаю правильно или нет ,проверьте пожалуйста и добавьте комментарий program Metka; label M1; var x: shortint; begin M1:writeln ('x>100') readln(x); if x<100 then GOTO M1 end.
Гость
Ответ(ы) на вопрос:
Гость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 - слово Введите - не лишнее
Не нашли ответ?
Похожие вопросы