Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Bироника
31.08.2022 05:08 •
Информатика
Написать программу, используя базовую структуру цикла с предусловием while.
Показать ответ
Ответ:
кпрооо
26.06.2020 22:54
Var m,k:integer;
begin
readln(m);
while 4*k<m do
k:=k+1;
writeln(k);
end.
Надеюсь на "Лучший ответ"
0,0
(0 оценок)
Популярные вопросы: Информатика
LonelyOne
28.04.2020 05:06
Перечисли в каждой строке названия таких предметов или сущевст, которые по разному выполняют действие умыться проплыть проползти взлететь прехать...
mileven353
28.04.2020 05:06
Написать программу на pascal abc. дано предложение. вывести строку в обратном порядке. вывести столбиком все его буквы и , стоящие на четных местах....
sdoleg2011
08.10.2020 13:13
Написать программу на pascal abc.дан целочисленный массив размера n. вычислить сумму и количество положительных элементов, произведение и количество отрицательных элементов,...
милуя
14.07.2020 22:08
Как в pascal в созданный калькулятор добавить такие функции, как синус, корень, квадрат и косинус? с case. какой должен быть тип данных, и можно ли добавить к обычным функциям?...
Дрындель
14.07.2020 22:08
Массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших...
adrien3000
01.01.2020 07:11
Для добавления звука в документ wordpad a)используется кнопка вставить с)использ. команда вставка объекта в)использ. команда замена д)это действие не возможно мне нужно сейчас...
olavd
01.01.2020 07:11
1. как с восьмилитровой и пятилитровой банки отмерить 7 литров воды? 2. в 5 литров и 7 литров отмерьте 6 литров.3.как с сосудов 17 литров и 5 литров налить 13 литров? 4.восьмилитровый...
070607
06.05.2023 17:01
Сформировать целочисленный массив из 12 произвольных чисел. получить новый массив, который отличается от исходного тем, что все элементы исходного массива с четными номерами...
знайка56884
06.05.2023 17:01
Есть 10 мешков с золотом. в каждом по 100 монет. в девяти мешках монеты настоящие, а в одном - все фальшивые. одна настоящая монета весит 5 грамм, а фальшивая - 4 грамма....
evtubori
07.05.2023 09:02
C++ Дано натуральное число. Найти сумму его последних n цифр. Величины для хранения всех n последних цифр числа не использовать.Что мне надо доделать?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(m);
while 4*k<m do
k:=k+1;
writeln(k);
end.
Надеюсь на "Лучший ответ"