Question

20 БАЛЛОВ

Ваш отпуск длится f дней. Сколько полных недель и дней составляет ваш отпуск?

Входные данные:

52

Выходные данные:

52 дней(я) - 7 недель 3 дней (я)
НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ

Answer 1

Ответ:

uses crt;

var d, n: integer;

begin

clrscr;

writeln('Введите кол-во дней');

read(d);

n := d div 7; d2 := d mod 7;

writeln(d, ' дней(я) = ', n, ' недель ', d, ' дней(я)');

readkey;

end.