Объяснение:
var bidon, cup, n: integer;
begin
write('bidon=');
readln(bidon);
write('kruzhka=');
readln(cup);
n:=0;
while bidon > 0 do begin
n:= n+1;
bidon:= bidon - cup;
end;
writeln('Nado ', n, ' kruzhek');
end.
Объяснение:
var bidon, cup, n: integer;
begin
write('bidon=');
readln(bidon);
write('kruzhka=');
readln(cup);
n:=0;
while bidon > 0 do begin
n:= n+1;
bidon:= bidon - cup;
end;
writeln('Nado ', n, ' kruzhek');
end.