50 БАЛЛОВ!PascalABC.NET программка!1)Всем известно, что в неделе 7 дней: понедельник (Monday),

50 БАЛЛОВ!
PascalABC.NET программа!

1)Всем знаменито, что в неделе 7 дней: пн (Monday), вторник (Tuesday), среда (Wednesday), четверг (Thursday), пятница (Friday), суббота (Saturday) и воскресенье (Sunday).
По номеру денька недели следует найти английский вариант его записи.

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

Входной файл INPUT.TXT содержит целое число N номер дня недели (1 N 7).

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

В выходной файл OUTPUT.TXT выведите ответ на задачу с большей буквы.

2) В классе учится X мальчишек и Y девченок. Каждый денек, прибывая в школу, они здороваются друг с ином. Входя в класс, каждый мальчишка нажимает руку каждому пришедшему ранее мальчику, а каждой девченке он разговаривает Привет!, и каждая девченка отвечает ему Привет!. С девочками все еще проще: когда в класс входит девочка, то она разговаривает Привет! каждому мальчугану и каждой девченке, а те ей также отвечают Привет!.
Ваша задачка посчитать количество рукопожатий и приветствий.

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

Входной файл INPUT.TXT содержит целые числа X и Y (0 X, Y 108).

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

В выходной файл OUTPUT.TXT выведите два целых числа через пробел количество рукопожатий и приветствий соответственно.

Задать свой вопрос
Olesja Znachkova
пж
1 ответ

Номер 1

const

   D: array[1..7] of string = ('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday');

var

   day: longint;

begin

   writeln('Введите номер дня.');

   readln(day);

   writeln(D[day]);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт