Решите задачу на языке Pascal

Question

Сиропчик и Лимонадик покупали и пили Coka-Colu, пустые бутылки сдавали и снова покупали газировку, пока не закончились все деньги. Выведете с точностью до 3 знаков после запятой сколько литров выпил каждый из них, если у Сиропчика было S рублей, а у Лимонадика L рублей, 1 бутылка Coka-Cola емкостью 0,6 литра стоит K рублей, пустые бутылки принимаются по P рублей.

Николай Грешонков · Accepted Answer

uses crt; 
var 
 ss,s,l,c, k,p:integer; 
 begin 
 clrscr; 
 Writeln('s = ');readln(s);writeln('l = ');readln(l); 
 writeln('k=');readln(k); 
 writeln('p=');readln(p); 
 c := 0; ss:=s+l; 
 While ss >= 0 do 
 begin 
 if keypressed then exit; 
 if ss >= k then inc(c); 
 ss := ss - k + p 
 end; 
 writeln('Coka-Colu = ',0.6*c:3:3); 
 readln; 
 end.