Предмет: Информатика, автор: vilusergeeva20p5zki8

20 БАЛЛОВ

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

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

52

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

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

Ответы

Автор ответа: Waffureon
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.

Интересные вопросы
Предмет: Русский язык, автор: rlarla
Предмет: Русский язык, автор: УмнЮлечка