Задача в Pascal abc.

Подсчитать количество двузначных чисел, которые кратны 3

Question

Информатика

Киприан

10 марта, 20:15

Задача в Pascal abc.

Подсчитать количество двузначных чисел, которые кратны 3

+1

Ответы (2)

Знаете ответ на вопрос?

Марюня · Answer 1

12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75, 78, 81, 84, 87, 90, 93, 96, 99. Итого 30.

Максим · Answer 2

Const

start=12; / / наименьшее подходящее число

max=100; / / первое число, идущее после всех двузначных

step=3; / / разность между подходящими числами

var

x, i:integer;

begin

x:=start;

i:=0;

while x
i:=i+1;

x:=x+step;

end;

writeln ('Количество искомых чисел: ', i) ;

end.

Задача в Pascal abc.Подсчитать количество двузначных чисел, которые кратны 3

Задача в Pascal abc.

Подсчитать количество двузначных чисел, которые кратны 3