Не получается запустить процедуру

@SHERF · Регистрация: 19.06.2018

Author24 — интернет-сервис помощи студентам

написал вот такую программу, для перевода количества введённых дней в количество недель и дней.

Pascal

Var chislo,k,m:integer;
begin
writeln ('Vvedite kolvo days');
readln (chislo);
k:=chislo div 7;
m:=chislo mod 7;
writeln ('week: ', k);
writeln ('days: ' ,m);
end.

однако необходимо сделать это через процедуру, я помучался, но так и не смог сделать.

@Constantin Cat · 02.11.2021, 09:56

Pascal

Var chislo,k,m:integer;
procedure one(a:integer;var b,c:integer);
  begin
    b:=a div 7;
    c:=a mod 7;
  end;
begin
  writeln ('Vvedite kolvo days');
  readln (chislo);
  {k:=chislo div 7;
  m:=chislo mod 7;}
  one(chislo,k,m);
  writeln ('week: ', k);
  writeln ('days: ' ,m);
end.;

	02.11.2021, 09:56

Не получается запустить процедуру

Решение