< >

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

Ответы

Ответ дал: APALoff
0
Ответ: 3003

Var
  i : Integer;
Begin
  i:=3000;
  While i mod 13<>0 do Inc(i);
  Writeln(i);
end.


Похожие вопросы
Беларуская мова
2 года назад
спiсаць, уставiць патрэбныя лiтары замест кропак:сад-у са...е,хата-у ха...е,парад- на пара...е,прырода-у прыро...е.
Алгебра
2 года назад
Когда Незнайка вошёл в комнату Гуньки, то увидел там, сидящих на диване малышек: Кнопочку, Синеглазку и Звездочку. Гунька с гордостью заявил, что одна из малышек – лучшая сказочница, другая –
Математика
7 лет назад
Найдите площадь сферы, если площадь сечения, проходящего через центр 25 м2
Литература
7 лет назад
ПОМОГИТЕ, ПОЖАЛУЙСТА Ответить на вопросы по рассказу Чехова «Ионыч»: 1) Кто такой Старцев Дмитрий Ионович? Каким он изображен в начале I главы? 2) Дайте характеристику семьи Туркиных: - из кого
Геометрия
9 лет назад
Вычислите площадь параллелограмма,если его стороны равны 14 см и 10 см,а угол между ними 30° Помогите,пожалуйста
Математика
9 лет назад
к чему равен км,м,дм,кг,г,
Алгебра
10 лет назад
sqrt 2*2 ^{3x} = frac{1}{2}
Математика
10 лет назад
елочные шары разложили в 5 коробок по 9 штук.колокольчиков было вдвое больше чем шаров их разложили поровну в 6 коробок сколько колокольчиков положили в каждую из этих коробок?