Составьте программу которая находит наименьшее 13 и превосходящее 3000
Составьте программу которая находит наименьшее 13 и превосходящее 3000
Гость
Ответ(ы) на вопрос:
ГостьОтвет: 3003
Var
i : Integer;
Begin
i:=3000;
While i mod 13<>0 do Inc(i);
Writeln(i);
end.
Не нашли ответ?
Похожие вопросы