Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
bitievru2014
16.03.2021 10:53 •
Информатика
Соператора repeat напишите программу, которая требует у вас пароль, например 111, и если пароль правильный, то печатает сообщение "молодец"!
Показать ответ
Ответ:
kamola555
02.07.2020 09:47
Program Repeat;
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
valentinasopina
12.07.2021 11:04
Пусть p=мне нравятся уроки информатики; q=мне нравятся уроки . выразите следующие формулы на обычном языке q все решил осталось только эта последняя не понимаю как(...
О2Л3Я4
29.05.2021 02:57
Процедура форматирования текста предусматривает:...
mihaill1988
29.05.2021 02:57
Придумайте графический представления поговорки повторение - мать учения...
AnnaKhusainova
29.05.2021 02:57
Выведите сумму чисел, поданных на ввод. входные данные два целых положительных числа, не превышающих 1000. выходные данные выведите сумму данных чисел....
Madinauakhitova
29.05.2021 02:57
Составьте программу в паскале со всеми ! хозяин хочет оклеить обоями длинную стену в своем доме. длина этой стены равна а метров, а высота - в метров. рулон обоев имеет длину...
zjablja
19.12.2020 18:04
Алгоритмы со структурой вложенных циклов. в качестве основы для выполнения используем двумерный массив а, содержащий m строк и n столбцов. составить на языке программирования...
svetagrigorenko
15.02.2023 15:03
Написать программу на turbopascal. дано натуpальное n. записать в файл целые числа , где bi=i2-2i+1 при i=1,. найти сумму всех четных чисел в файле....
nikputen1
13.07.2021 08:58
Какой тип данных может иметь параметр цикла?...
ksusha020504
20.01.2020 16:44
Хозяин хочет оклеить обоями длинную стену в своем доме. длина этой стены равна а и высота б. рулон обоев имеет длину 12 м и ширину 1 м. сколько будут стоить обои для всей...
Violettka181
20.01.2020 16:44
1): определить требуемый объем видеопамяти для графического режима экрана монитора 640 на 480,если глубина цвета на одну точку 8 бит.: каков минимальный объем памяти (в байтах),достаточный...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
varX: integer;
begin
repeat
Write ('Значение X= ');
Readln (X);
if X <> 111 then
until X = 111;
Writeln ('Молодец!');
end.