• Составить программу в Pascal:
    Найти все трехзначные числа, обладающие следующими свойствами:
    - сумма цифр числа А делится на 4;
    - сумма цифр числа А+2 также делится на 4

Ответы 1

  • var i1,i2,s1,s2:integer;beginfor i1:=100 to 997 do begin s1:=(i1 div 100)+(i1 div 10 mod 10)+(i1 mod 10); i2:=i1+2; s2:=(i2 div 100)+(i2 div 10 mod 10)+(i2 mod 10); if (s1 mod 4=0)and(s2 mod 4=0) then writeln(i1,' ',i2); end;end.Результат:299 301398 400699 701798 800
    • Автор:

      lyric38
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years