Задача на mod Опции

[kurt]

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

[мисс_граффити]

и что ты ПРОБОВАЛ делать?

[Tan]

что именно не выходит ?

Сообщение отредактировано: Tan - 17.03.2007 18:31

[Артемий]

Можно пробовать так..(просто уже примерно это решал )

var
i,o,k,m: integer;
s: string;
begin
for i:=10 to 99 do begin
 k:=i*3;
 str(k,s);
 m:=k mod 10;
   if length(s)=3 then begin
   m:=m+(k div 100)+((k mod 100)div 10); end else
   m:=m+(k div 10);
 if (m mod 5)=0 then writeln(i);
end;

[Perfez]

Артемий2,позволь дать маленькую правку:

вывести на экран кол-во двузначных чисел

то есть не помешало бы

var
i,o,k,m,j: integer;
s: string;
begin
for i:=10 to 99 do begin
 k:=i*3;
 str(k,s);
 m:=k mod 10;
   if length(s)=3 then begin
   m:=m+(k div 100)+((k mod 100)div 10); end else
   m:=m+(k div 10);
 if (m mod 5)=0 then j:=j+1;
end;
WriteLn(j);
end.

Сообщение отредактировано: Perfez - 17.03.2007 22:15

[klem4]

мне кажется на 3 умножать не обязательно, если сумма цифр на 5 не делится, то и утроенная она делиться не будет ...

Perfez Поставь в свой программе

 
if (m mod 5)=0 then begin
  j:=j+1;
  writeln(m);
end;

И посмотри какие числа там получаются ...

А решение вот такое я думаю:

count := 0;
  for n := 10 to 99 do
   if ((n mod 10) + (n div 10)) mod 5 = 0 then inc(count);