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

2

Ответы и объяснения

  • nemp
  • хорошист
2013-04-11T17:06:55+04:00

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.

  • Tlalok
  • почетный грамотей
2013-04-12T00:02:29+04:00

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.