Версия для печати темы

Автор: kurt 17.03.2007 18:01

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

Автор: мисс_граффити 17.03.2007 18:13

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

Автор: Tan 17.03.2007 18:30

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

Автор: Артемий2 17.03.2007 18:34

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

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 17.03.2007 22:12

Артемий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.

Автор: klem4 18.03.2007 16:21

мне кажется на 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);