Помогите, пожалуйста,с ПаскалемCase 4 Дан номер месяца целое число в
Помогите, пожалуйста,с Паскалем
Case 4 Дан номер месяца целое число в спектре 112 (1 январь, 2
февраль и т. д.). Найти количество дней в этом месяце для невисо-
косного года.
Case 10 Case10. Бот может передвигаться в 4 направлениях (С север,
З запад, Ю юг, В восток) и принимать три цифровые ко-
манды: 0 продолжать движение, 1 поворот влево, 1 поворот
вправо. Дан знак C исходное направление бота и целое число N
посланная ему команда. Вывести направление бота после выполне-
ния приобретенной команды
1 ответ
Виталий Пальчиковский
1-ая задача:
varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такого месяца нет');end;END.
Над 2-ой еще подумаю, как более короткое решение записать.
varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такого месяца нет');end;END.
Над 2-ой еще подумаю, как более короткое решение записать.
Алла Тарщикова
varc:char;s:string;n,i:integer;BEGINread(c);read(n);case c of'С': i:=1;'В': i:=2;'Ю': i:=3;'З': i:=4;end;case n of1: begin i:=i-1; if i=0 then i:=4; end;-1: begin i:=i+1; if i=5 then i:=1; end;end;case i of1:writeln('С');2:writeln('В');3:writeln('Ю');4:writeln('З');end;end. Это 2-ая задачка
Ванька
Первая задача вот так обязана быть записана (а не в строку):
Сковоринская
София
varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такового месяца нет');end;END.
Мила Иванов-Вано
громадное спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Облако тегов