Вывести на экран наибольшее целое число в диапазоне от 0 до введеного, которое делится на 8.

Question

Кима

4 января, 13:48

+5

Ответы (1)

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

Эллада · Answer 1

Var k, i, j:integer;

begin

read (k) ; j:=0;

for i:=1 to k do

if i mod 8=0 then j:=i;

if j=0 then writeln ('такого нет') else writeln (j) ;

end.