Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
yaksyta
24.08.2021 15:31 •
Информатика
Пример алгоритма содержащего повторение
Показать ответ
Ответ:
дашикмашикпык
01.10.2020 16:53
Program rep;
Var a:integer;
Begin
Writeln('1 or 0);
Readln(a);
While a=1 do
Begin
Writeln('1 or 0');
Readln(a);
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
IKristin
28.09.2022 04:24
Выполните перевод единиц измерения количества информации. 104 бит= байт...
50АлисА05
05.06.2023 21:24
Выполните перевод единиц измерения количества информации. 3 Кбайт= байт...
MaxonA
23.11.2021 09:09
Составить программу в Паскале для обработки массива из 10 чисел Х = (–17,3; 13,2; –7; –2,36; 123,4; –0,3; 12,356; 142; 0; –1). Вычислить количество элементов массива...
232привет
24.07.2021 20:13
У и запиши верный ответ. (B∨K)&(B∨K¯¯¯) В ПОСЛЕДНЕЙ СКОБКЕ ОТРИЦАНИЕ ТОЛЬКО У К...
Неко6тян
06.04.2023 17:18
Өрнекті ықшамда: 25 ∙ (2x + 5) + 4 ∙ (7x + 5) – 8x....
asemgul101205
18.10.2020 23:57
Жер бетінде қазақ деген халық барда«Қыз Жібек» те жасай бермек» - деген пікірді қалай түсінесіңдер? ...
аллалесниченко
26.01.2022 08:37
Уравнение движения велосипедиста имеет вид: s = 3t + 4t2. Надо найти начальную скорость ....
mrdrozdovoy228
12.04.2023 10:43
Человек не может помнить все: события даты цифры названия имена. Разбирать по членам предложении...
Kanapluhaaa
04.12.2021 02:11
. Сыныптың қабырғаларын жазықтықтың бөліктері деп қарасты-рыңдар....
dali666
09.11.2020 01:24
Запишите формулы и определите степени окисления в следующих соединениях: серная кислота, фосфорная кислота, оксид азота (II), фосфат кальция, хлорид алюминия, нитрат...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a:integer;
Begin
Writeln('1 or 0);
Readln(a);
While a=1 do
Begin
Writeln('1 or 0');
Readln(a);
End;
End.