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

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

Задать свой вопрос
Мунчелевичуте Милана
Может так "наименьшее число кратное 13 и превосходящее 3000"
Тимур Давцов
Язык хоть бы написали
1 ответ
Ответ: 3003

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


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт