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

Найти количество двузначных четных чисел кратных 8. Это в паскале
Гость
Ответ(ы) на вопрос:
Гость
var a,k: integer; begin a:=1; k:=0; while (a<>0) do begin if ((a<100) and (a>9) and (a mod 8 =0)) then k:=k+1; end; writeln(k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы