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

November 2021 1 9 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

chto znachit si v paskale simvol na pozicii i ili kak naiglupejshij vopros

yashik massoj 40 kg soskalzyvaet bez nachalnoj skorosti s vershiny naklonnoj plosk

kak perevoditsya to be around tolko ne pishite byt vokrug ili okolo nado kak

nepolno neznakomyj vsem poprostu kak pishetsya i pochemu

kakie zhivotnye i rasteniya est v savanne yuzhnoj ameriki kakie pochvy preobladayut

sostavit programmu kotoraya udvoit vse soglasnye bukvy i vstavit mezhdu nimi buk

sostavte programmu kotoraya vvedennoe s klaviatury predlozhenie vyvodit v pervoj

primenite slovo yazyk v predlozhenii podrazumevaya yazyk kolokola udarnuyu chast

pochemu osvoenie sibiri v 16 veke shlo uspeshno

nelzya predstavit sebechtoby zhiteli yuzhnoj avstralii ili tasmanii uvideli solnce

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

Helpful Links

Helpful Social