Помогите пожалуйста, очень срочно!
5-9 класс
|
Нужно написать программу,где машина должна будет тебе выдать название месяца, сколько дней в этом месяце и какой это день недели.
Решить нужно в Pascal
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)
Буду очень благодарна!
Поменять местами первый элемент масива и максимальный.
Заранее Спасибо) Помогите пожалуйста) Очень срочно!!)
var a: array [1..20] of integer;
p>
?
ПОМОГИТЕ ПОЖАЛУЙСТА,ОЧЕНЬ СРОЧНО НАДО...