Составьте программу вычисления количества двузначных чисел,которые кратны 2 и3
Составьте программу вычисления количества двузначных чисел,которые кратны 2 и3
Гость
Ответ(ы) на вопрос:
Гостьvar i, n: integer;
begin
for i := 10 to 99 do
if (i mod 2 = 0) and (i mod 3 = 0) then
n := n + 1;
writeln(n);
// Или так:
writeln((99 div 6) - Int(10 / 6));
end.
Не нашли ответ?
Похожие вопросы