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

Question

Информатика

Тарасий

30 ноября, 06:05

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

+4

Ответы (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.