20 БАЛЛОВ Ваш отпуск длится f дней. Сколько полных недель и дней составляет ваш...

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.