Предмет: Информатика,
автор: koshka6661
Помогите, пожалуйста,с Паскалем
Case 4 Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 —
февраль и т. д.). Определить количество дней в этом месяце для невисо-
косного года.
Case 10 Case10. Робот может перемещаться в четырех направлениях («С» — север,
«З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые ко-
манды: 0 — продолжать движение, 1 — поворот налево, −1 — поворот
направо. Дан символ C — исходное направление робота и целое число N
— посланная ему команда. Вывести направление робота после выполне-
ния полученной команды
Ответы
Автор ответа:
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.
Над второй еще подумаю, как более короткое решение записать.
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.
Над второй еще подумаю, как более короткое решение записать.
Первая задача вот так должна быть записана (а не в строчку):
var
n:integer;
BEGIN
read(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.
n:integer;
BEGIN
read(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.
огромное спасибо
Похожие вопросы
Предмет: Геометрия,
автор: R4coon
Предмет: Русский язык,
автор: alexeialeksey17
Предмет: Литература,
автор: Snyusomumrik
Предмет: Математика,
автор: matt4
c:char;
s:string;
n,i:integer;
BEGIN
read(c);
read(n);
case c of
'С': i:=1;
'В': i:=2;
'Ю': i:=3;
'З': i:=4;
end;
case n of
1: 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 of
1:writeln('С');
2:writeln('В');
3:writeln('Ю');
4:writeln('З');
end;
end. Это вторая задача