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

Это в паскале

Question

Петуха

19 декабря, 18:04

+5

Ответы (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.Это в паскале