Версия для печати темы

Автор: Рустам 4.11.2007 19:02

мне надо составить программу на паскале,..... чтоб например я написал 22 дня, а мне в ответ 3 недели и 1 день... Или например: я пишу44, мне в ответ: 6недель и 2 дня............ короче переводить дни в недели... я остановился на этом:
PROGRAM NEDELYA;
VAR
x,y:integer;
begin
writeln('введите кол-во дней');
write('x=');
d:=xnod7;
END.

Но ничего не выходит........

Автор: klem4 4.11.2007 19:14

uses crt;

var
  x: Integer;

begin
  clrscr; 
  write('x = '); readln(x);
  writeln(x div 7, ' weeks');
  writeln(x mod 7, ' days');
  readln;
end.