Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
caps lock,shift
program xxx;
var z,d,k : integer;
begin
z: =2; d: =7; k: =0;
while (d> =z) do
d: =d-z;
k: =k+1
end;
writeln(d,' ',k);
readln
end.
Популярные вопросы