• найдите и выведите на экран все трехзначные числа, кратные 20, сумма цифр которых равна сумме цифр частного от деления их на 20.

Ответы 2

  • program chik;var i,a,b,c:integer;beginfor i:=100 to 999 dobegina:=i div 100;b:=(i div 10)mod 10;c:=i mod 10;if(i mod 20=0)and(a+b+c=i div 20)then writeln(i);end;end.ответ 180 т.к 180 делится на 20сумма цыфр 180 равно 1+8+0=9180/20=99=9
  • var  i,s1,s2:integer;begin  i:=100;  repeat    s1:=(i div 100)+((i mod 100) div 10)+(i mod 10);    s2:=i div 20;    s2:=(s2 div 10)+(s2 mod 10);    if s1=s2 then Writeln(i);    i:=i+20;  until i>999end.Результат выполнения программы:180360540720900
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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