Найдите и выведите на экран количество двузначных чисел у которых при умножении на 3 сумма цифр кратна 5

Question

Найдите и выведите на экран количество двузначных чисел у которых при умножении на 3 сумма цифр кратна 5

Экономика

Гость

Ответ(ы) на вопрос:

Гость

var i, count:integer; begin for i := 10 to 99 do if ( (i * 3) mod 10 + ((i * 3) div 10) mod 10 + (i * 3) div 100 ) mod 5 = 0 then inc(count); writeln('Count = ', count); end.

Accepted Answer

Program p1; Uses crt; Var i:byte; kol:integer; Begin For i:= 10 to 99 do if i*3 div 10<10 then if ((i*3 mod 10)+(i*3 div 10)) mod 5=0 then kol:=kol+1 else if ((i*3 mod 10)+(i*3 div 10)+(i*3 div 100)) mod 5=0 then kol:=kol+1; Writeln('Количество чисел = ',kol); End.