Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
FireLive
19.04.2022 14:07 •
Информатика
Ввести число и вычитать из него 2 пока оно не станет меньше или равно 1. сколько раз выполнено вычитание
Показать ответ
Ответ:
ноб1
08.10.2020 19:58
C while:
var
i, k: integer;
begin
writeln('Число: ');
readln(i);
while i > 1 do
begin
i := i - 2;
k := k + 1
end;
writeln('Количество вычитаний - ', k);
end.
с repeat:
var
i, k: integer;
begin
writeln('Число: ');
readln(i);
repeat
i := i - 2;
k := k + 1
until i <= 1;
writeln('Количество вычитаний - ', k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Даниэла2106
15.04.2022 02:14
Написать программу, которая использует генератор случайных чисел выводит массив, состоящий из 10 целых элементов, из интервала[-5;5] и преобразует этот массив в новый, в котором...
snoopy201
15.06.2022 08:10
Дайте развернутые ответы на теоретические во Каково основное назначение электронных таблиц? 2. Что такое книга? 3. Что такое лист? 4. Что такое ячейка? 5. Что такое диапазон...
pifi123
15.06.2022 08:10
К какому действию с информацией относится - кодирование?1.получение информации2.хранение информации3.обработка информации4.передача информации...
дархан23
03.01.2022 21:07
Реферат, набранный на компьютере. содержит 12 страниц. половина из этих страниц набрана так, что на каждой странице 48 строк, в каждой строке 64 символа. другая половина реферата...
hdjdhd1
08.06.2023 00:12
Напишите программу, которая вычисляет сумму всех делителей заданного натурального числа n и находит все нечетные делители этой суммы. входные данные в первой строке входного...
Selbrit
08.06.2023 00:12
Пользователь вводил текст с клавиатуры со скоростью 90 знаков в минуту. какое количество информации будет содержать текст, который он набирал 15 минут (используется компьютерные...
farangizuk
17.02.2020 11:11
Текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов. каков информационный объем текста...
fargustyana
09.12.2021 21:42
Ёмкость кампакт диска cd-r 700 мб.какова ёмкость диска в байтах и битах ( )...
seregalock
08.01.2021 13:32
353. а) 10 км қашықтықты шаңғышылардың бірі екіншісінен 10 мин-қа тезірек жүріп өтті. Егер бірінші шаңғышының жылдам-дығы екіншінің жылдамдығынан 3 км/сағ-қа артық болса, әрқай-сысының...
Yuliya0264
08.01.2021 13:32
Ich habe ... Tage Schule, von bis Ich stehe um ... auf.Ich bin von ... bisbis ... in der Schule.Von ... bis ... habe ich Unterricht/Mittagspause.Um Uhr bin ich zu Hause. переведите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i, k: integer;
begin
writeln('Число: ');
readln(i);
while i > 1 do
begin
i := i - 2;
k := k + 1
end;
writeln('Количество вычитаний - ', k);
end.
с repeat:
var
i, k: integer;
begin
writeln('Число: ');
readln(i);
repeat
i := i - 2;
k := k + 1
until i <= 1;
writeln('Количество вычитаний - ', k);
end.