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

November 2021 1 22 Report

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

Answers & Comments

quluquliyev191 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>999
end.

Результат выполнения программы:
180
360
540
720
900

1 votes Thanks 3

Answers & Comments

что значит s[i] в Паскале? символ на позиции i или как? наиглупейший вопрос ...

Ящик массой 40 кг соскальзывает без начальной скорости с вершины наклонной плоск...

как переводится to be around? только не пишите быть вокруг или около.. надо как ...

(Не)полно, (не)знакомый всем, по(просту). Как пишется и ПОЧЕМУ?...

какие животные и растения есть в саванне южной америки? какие почвы преобладают?...

составить программу, которая удвоит все согласные буквы и вставит между ними бук...

составьте программу, которая введенное с клавиатуры предложение выводит в первой...

примените слово "язык" в предложении, подразумевая язык колокола - ударную часть...

почему освоение Сибири в 16 веке шло успешно?...

Нельзя представить себе,чтобы жители южной Австралии или Тасмании увидели солнце...

рекомендуемые вопросы

Helpful Links

Helpful Social