Задание:
Составить программу, которая вычисляет колличество двухзначных чисел, которые кратны 2 и 3.
Решение:
Uses crt; var x,k: integer; begin k: =0; for x: =10 to 99 do if (x mod 2=0) and (x mod 3=0) then inc (k); writeln ('Количество двухзначных чисел, кратных 2 и 3: ',k); end.
Знаете другой ответ?