Дано натуральное число. Определить будет ли это число: нечётным, кратным 7.

218

367

Посмотреть ответы 1

Ответы на вопрос:

tasirevaliza79

Информатика

4,6(79 оценок)

Var n,k,kolvo,c: real; beginreadln (k,n,c); kolvo: =k; while k+(c-n) > =0 do beginif k+(c-n)< kolvo then begin writeln ('за ' ,abs(k/(c-n)) , 'прыжков'); break endelse beginwriteln ('собака кролика не догонит'); breakend; end; end.