• Помогите, пожалуйста,с Паскалем
    Case 4 Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 —
    февраль и т. д.). Определить количество дней в этом месяце для невисо-
    косного года.
    Case 10 Case10. Робот может перемещаться в четырех направлениях («С» — север,
    «З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые ко-
    манды: 0 — продолжать движение, 1 — поворот налево, −1 — поворот
    направо. Дан символ C — исходное направление робота и целое число N
    — посланная ему команда. Вывести направление робота после выполне-
    ния полученной команды

Ответы 5

  • 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. Это вторая задача
  • Первая задача вот так должна быть записана (а не в строчку):
    • Автор:

      lefty
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      zaracydh
    • 6 лет назад
    • 0
  • огромное спасибо
    • Автор:

      esmeralda
    • 6 лет назад
    • 0
  • Первая задача: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.Над второй еще подумаю, как более короткое решение записать.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years