Найти количество двузначных четных чисел кратных 8.

Это в паскале

Question

Андрей

7 мая, 22:53

+1

Ответы (1)

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

Вива · Answer 1

var a, k: integer;

begin

a:=1; k:=0;

while (a0) do

begin

if ((a9) and (a mod 8 = 0)) then k:=k+1;

end;

writeln (k) ;

end.

Найти количество двузначных четных чисел кратных 8.Это в паскале