Предмет: Информатика,
автор: sdgfgfgdsewd
СДЕЛАТЬ ВСЕ В ПАСКАЛЕ
1. Собака гонится за кроликом, который находится впереди нее на расстоянии k футов, и при каждом прыжке делает n футов, в то время как кролик прыгает на с футов. За сколько прыжков собака догонит кролика? (Предусмотреть вариант, когда собака не догонит кролика).
2. Найти все трехзначные числа, такие, что сумма цифр равна a, а само число делится на b.
sdgfgfgdsewd:
можно и км не важно
Ответы
Автор ответа:
0
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.
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.
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.
Интересные вопросы
Предмет: Русский язык,
автор: balkarovaazaliya
Предмет: Немецкий язык,
автор: offdeleted25
Предмет: Английский язык,
автор: kirillgoro2007
Предмет: Химия,
автор: Лилия1105
Предмет: География,
автор: aselnuralina