Соператора цикла с предусловием вывести на печать все двузначные числа четные и кратные 3

karahenov98Алекс karahenov98Алекс    3   23.10.2019 16:09    0

Ответы
CuprumJewellier5 CuprumJewellier5  10.10.2020 09:08

program FindNum;

var

 n: Integer;

begin

 n := 10;

 while n <= 99 do begin

   if (n mod 2 = 0) and (n mod 3 = 0) then

     Write (n, ' ');

   Inc (n);

 end;

 ReadLn;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика