Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.
Популярные вопросы