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

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

52

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

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

Kairas Kairas    3   15.04.2020 13:54    0

Ответы
tata20082 tata20082  13.10.2020 07:11

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика