Отыскать все трехзначные числа которые при увеличении на 1 делятся на

Отыскать все трехзначные числа которые при увеличении на 1 делятся на 2,и при увеличении на 2 делятся на 3 , вывести на экран эти числа и их количество.

Задать свой вопрос
1 ответ
Вот полная 
uses crt;
var
i,k:integer;
begin
for i:=100 to 999 do
if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)
then begin
writeln(i);
k:=k+1;
end;
writeln('кол-во',k)
end.
Дарина Фиметова
спс
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт