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

Question

Информатика

Генрих

30 августа, 23:20

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

+5

Ответы (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.