Вывести на экран наибольшее целое число в диапазоне от 0 до введеного, которое делится на 8.
Вывести на экран наибольшее целое число в диапазоне от 0 до введеного, которое делится на 8.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы