Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lolkekcheburek15
29.01.2021 21:53 •
Информатика
Почему не идет программа? в ответе нужны нечетные числа от 3 до 25 program chislo; var a,i: integer; begin i: =3; writeln(i); repeat a: =i+2; until a < 56; writeln(a); end.
Показать ответ
Ответ:
MN0G0ZNAAL
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 оценок)
Популярные вопросы: Информатика
ATimofeeva
29.01.2020 07:09
На строки : с клавиатуры вводятся 8 слов, подсчитать количество слов,в которых меньше 3-х символов ...
woof3228
25.07.2020 11:50
Дописать прогу в паскале абс var c, s, n: integer; x,d : longint; begin writeln( введите x ); readln (x); d: =x; n: =0; while x 0 do begin c: = x mod 10; if c mod 2 =0 then n:...
w678Kordroy
12.03.2021 05:51
A. лучший подотрезок ограничение по времени на тест1 секунда ограничение по памяти на тест256 мегабайт вводстандартный ввод выводстандартный вывод вам задан массив a 1 , a 2 ,…,...
polly009090
06.06.2021 06:14
40 составить программу двух векторов по 8 компонентов целочисленного типа каждый .дано множество чисел из диапозона типа вывести количество совпадении и числа пренадлежащие множеству...
лэлаЭж
01.09.2021 12:46
(25 ) сгенерировать три случайных числа a b c из диапазона от -30 до 30 вывести их на экран, найти наибольшее из них по модулю (алгоритмом)...
gg228
06.06.2021 06:14
Дана длина ребра куба a. найдите объем куба v=a3 и площадь его поверхности s=6∗a2 написать код на питоне...
lolshik009
06.06.2021 06:14
Укажите, где допущены ошибки при вводе данных в delphi? выберите одну или несколько ответов: a. readln ( значение равно , b: 2: 4) b. readln (b, m) c. read (b: 2: 4) какой тип...
dariadariadaria2
06.06.2021 06:14
Кто , когда , где и зачем придумал язык программирования assembler. 70...
plekhanov04
10.10.2020 18:42
создайте на рабочем столе папку, а в ней текстовый документ (можно использовать microsoft word, openoffice.org writer, textedit). в текстовом документе создайте следующую таблицу:...
Smartfone
30.07.2022 08:38
Найти ошибку program pr1; var a, b, m,: integer; p: real; begin m: =0; readln (a,b); p: = b-a; if p mod 2 = 0 then m: = p/2; end; if p mod 2 = 1 then m: =(p-1)/2; writeln(m);...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i: integer;
begin
i := 3;
writeln(i);
repeat
i := i + 2;
writeln(i);
until i >= 25;
end.
цикл этот работает, пока условие ложно) Да и переменная a лишняя