Question

СДЕЛАТЬ ВСЕ В ПАСКАЛЕ
1. Собака гонится за кроликом, который находится впереди нее на расстоянии k футов, и при каждом прыжке делает n футов, в то время как кролик прыгает на с футов. За сколько прыжков собака догонит кролика? (Предусмотреть вариант, когда собака не догонит кролика).
2. Найти все трехзначные числа, такие, что сумма цифр равна a, а само число делится на b.

Answer 1

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.

Answer 2

var n,k,kolvo,c:real;
begin
readln (k,n,c); kolvo:=k;
while k+(c-n) >=0 do begin
if k+(c-n)writeln ('за ' ,abs(k/(c-n)) , 'прыжков');
break end
else begin
writeln ('собака кролика не догонит');break
end;
end;
end.