Предмет:
ИнформатикаАвтор:
анонимvar x: integer; // объявляем перменную y: string; // объявляем перменную label x1; // объявляем меткуbegin writeln (\'Введите свое имя: \'); // выводим строку на экран readln (y); // считываем значение переменной writeln (\'Введите класс: \'); // выводим строку на экран readln (x); // считываем значение перменной x1:if ((x > 0 ) and ( x <= 11)) then // если введен номер класса с по 11 begin writeln (\' Здравствуй \', y); // выводим строку на экран if (x < 9 ) then // если введен класс меньше 9 writeln (\' Ты еще не знаешь Паскаль\') // выводим строку на экран else // если класс от 9 и выше writeln (\' Давай поработаем!\') // выводим строку на экран end else begin // если класс>11 или введен другой символ, вводим класс еще раз и идем на метку x1 writeln (\' Некорректно введен номер класса, попробуйте еще раз: \'); readln(x); goto x1; end end.
Автор:
emily34Добавить свой ответ
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть
Предмет:
ИнформатикаАвтор:
анонимОтветов:
Смотреть