Задача в Pascal abc. Подсчитать количество двузначных чисел, которые кратны 3
Задача в Pascal abc.
Подсчитать количество двузначных чисел, которые кратны 3
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьconst
start=12; //наименьшее подходящее число
max=100; //первое число, идущее после всех двузначных
step=3; //разность между подходящими числами
var
x,i:integer;
begin
x:=start;
i:=0;
while x
Не нашли ответ?
Похожие вопросы