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

[kurt]

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

[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 18:15