Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Помогите пожалуйста, очень срочно!

5-9 класс

Нужно написать программу,где машина должна будет тебе выдать название месяца, сколько дней в этом месяце и какой это день недели.
Решить нужно в Pascal

Даша10092001Даша 15 дек. 2014 г., 3:27:22 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Denis2258257
15 дек. 2014 г., 4:34:44 (9 лет назад)

var x,y:integer;
Begin
read(x,у);
case x of
1,3,5,7,8,10,12: if (y<1) or (y>31) then goto 1;
2: if (y<1) or (y>29) then goto 1;
4,6,9,11:if (y<1) or (y>30) then goto 1;
else
Write ('Неправильно введен номер месяца');
end;

Write('Дата введена правильно');
Write('Неправильно введено число');
end.

Ответить

Другие вопросы из категории

Помогите пожалуйста срочно на завтра!!!!! В составе каких предметов и существ есть такие части? (Запиши как можно больше названий рядом с каждой

частью.)

Обведи рисунок, на котором есть все перечисленные части.

СЛОВА:

КОЛЕСО----------------------------------

ОКНО--------------------------------------

ХВОСТ------------------------------------

КРЫЛО-----------------------------------

Читайте также

Помогите пожалуйста,очень срочно!

Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое.

(В паскале,по такому типу:
Var
Begin
WriteLn
End)
Буду очень благодарна!

Создать программу в Паскале, 9 класс

Поменять местами первый элемент масива и максимальный.
Заранее Спасибо) Помогите пожалуйста) Очень срочно!!)
var a: array [1..20] of integer;



Вы находитесь на странице вопроса "Помогите пожалуйста, очень срочно!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.