Question

Помогите решить, пожалуйста!!!! Даю 40 баллов!

Answer 1

var

x,days,y:integer;

begin

readln(x)

y=0;

days=0;

while y<x do

begin

days=days+1;

y=y+4-3;

end;

writeln('количество дней :' , days);

END.