Подсчитайте количество трехзначных чисел, кратных 13.

Question

Информатика

Витюня

6 января, 00:59

Подсчитайте количество трехзначных чисел, кратных 13.

+1

Ответы (1)

Знаете ответ?

Апраксин · Answer 1

1 способ

var i, k:integer;

begin

k:=0;

for i:=999 downto 100 do

begin

if i mod 13 = 0 then

k:=k+1;

end;

write (k) ;

end.

2 способ

var i, k:integer;

begin

k:=0;

for i:=100 to 999 do

begin

if i mod 13 = 0 then

k:=k+1;

end;

write (k) ;

end.