logo
Войти Регистрация Спроси ai-bota


ytxrgh
09.07.2022 01:53

Составьте программу которая находит наименьшее 13 и превосходящее 3000

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
deniskohan59
deniskohan59
11.11.2020 14:02
Решите 7, 8, 10 задачи с пояснением ​...
sveto4ckaklana
sveto4ckaklana
04.10.2021 03:43
Найти значение логического выражения а или в и а если а=0 а в=1...
irada2004irada
irada2004irada
15.04.2020 08:01
Круглосуточном супермаркете установлено 20 касс и работает всего одна хранительница ключей для отмены операций – Галя. Кассиры работают в три смены. Известно, что...
DoVInterER
DoVInterER
03.12.2022 03:26
Найти количество чисел кратных 3 в последовательности оканчивающихся 0найти сумму четных чисел не провосходящих число Мнайти произведение чисел последовательности...
tatarincevai
tatarincevai
12.10.2021 19:17
Два учащихся 7 б класса нужно составить расписание уроков на понедельник.Должны быть такие предметы:2 урока математики,по 1 уроку русского языка,истории,биологии...
Нетта771
Нетта771
25.08.2020 23:36
Автомобильный номер состоит из 8 символов: четырёх цифр, за которыми следуют 3 буквы. допустимыми символами считаются 9 цифр (кроме нуля) и 6 заглавных букв: а,...
maruad1
maruad1
25.08.2020 23:36
Книга содержит 150 страниц. на каждой странице 40 строк. в каждой строке 60 символов (включая пробелы) найдите информационный объем текста ! !...
Krutoi0chuvak
Krutoi0chuvak
17.06.2021 09:35
Дан массив из 10 целых положительных чисел, заполненный с клавиатуры. найти максимальный и минимальный элемент в массиве и поменять их местами....
marybyl86
marybyl86
17.06.2021 09:35
Составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел на среднюю этих чисел help ! please...
влад2299
влад2299
17.06.2021 09:35
Составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел,а большее из двух данных чисел на среднюю этих чисел help ! please...
Ответ:
BratanTVision
06.08.2020 23:53
ответ: 3003

Var
  i : Integer;
Begin
  i:=3000;
  While i mod 13<>0 do Inc(i);
  Writeln(i);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота