Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ДжулиТян
07.04.2023 14:49 •
Информатика
Почему не идет программа? в ответе нужны нечетные числа от 3 до 25 program chislo; var a,i: integer; begin i: =3; writeln(i); repeat a: =i+2; until a < 56; writeln(a); end.
Ответ:
лиана250
01.10.2020 19:55
var
i: integer;
begin
i := 3;
writeln(i);
repeat
i := i + 2;
writeln(i);
until i >= 25;
end.
цикл этот работает, пока условие ложно) Да и переменная a лишняя
0,0
(0 оценок)
Популярные вопросы: Информатика
marina03501997
25.06.2020 16:44
Составьте программу, вычисляющую количество цифр введенного натурального числа Pascal ABC...
zab1290
10.05.2023 04:56
1-ая при порожении электрическим током...
shaplen
28.07.2020 05:07
Какой логический оператор является бинарными?...
djnf
16.11.2021 19:11
Растровый графический файл содержит цветное, изображение с палитрой из 512 цветов, размером 20 х 30 пикселей. Каков, информационный объем этого файла в Байтах? ...
Кирюха55555
31.05.2020 19:43
Составить блок схему алгоритма и программу для вычисления функции по формуле k= ln(p^2+y^3)+e^p...
BlackStile
31.05.2020 19:43
Составьте на языке pascal - составьте фразу практическая работа из слов практика , рабочий , честная . ,...
taxirkuliev
21.02.2021 03:59
SketchUp программасының интерфейссі...
Центравой
20.06.2021 22:51
Какими разделами меню отличается программа excel от программы...
Dash528
11.01.2021 21:27
В1975 году джордж лукас приступил к созданию этого фильма. он собрал команду одних из самых первых в киномире компьютерных фанатов и основал студию цифровых и визуальных...
Eugene032
12.07.2021 04:05
Составить блок схему: var a,b,c: integer; begin read(a,b,c); if (a b) then a: =a else a: =b; if (a c) then a: =a else a: =c; writeln(a); end....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i: integer;
begin
i := 3;
writeln(i);
repeat
i := i + 2;
writeln(i);
until i >= 25;
end.
цикл этот работает, пока условие ложно) Да и переменная a лишняя