Информатика, опубликовано 2018-08-22 23:44:41 by Гость
Составьте программу вычисления количества двузначных чисел,которые кратны 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.