20 БАЛЛОВ
Ваш отпуск длится f дней. Сколько полных недель и дней составляет ваш отпуск?
Входные данные:
52
Выходные данные:
52 дней(я) - 7 недель 3 дней (я)
НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ
Ваш отпуск длится f дней. Сколько полных недель и дней составляет ваш отпуск?
Входные данные:
52
Выходные данные:
52 дней(я) - 7 недель 3 дней (я)
НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ
More Questions From This User See All
Answers & Comments
Ответ:
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.