Решите зд по информ через программу for и while:вынести на экран нечетные двухзначные числа кратные трем

Question

Информатика

Вилена

29 сентября, 08:56

Решите зд по информ через программу for и while:вынести на экран нечетные двухзначные числа кратные трем

+2

Ответы (1)

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

Адамушка · Answer 1

Program odd_2d_mod3_0;

var

i: integer;

begin

for i : = 10 to 99 do

begin

if i mod 2 = 1 then

begin

if i mod 3 = 0 then

write (i, ' ') ;

end;

end;

end.