Информатика

Вопрос/Задача:

По заданному номеру месяца будет напечатано его название и указать, количество дней в месяце (оператор выбора case). например: введите № месяца -> 1 это январь (дней - 31)

Ответы на вопрос

Ответ
Ответ разместил: Гость

var b: array [1..10] of real;

      s: real;

      i: integer;

begin

  s: =0;

  for i: =1 to 10 do begin

    readln(b[i]);

    s: =s+b[i];

                          end;

  writeln(s);

end.

     

Ответ
Ответ разместил: Гость
One morning near montignac four friends were telling stories about treasures hidden in the forest. as they were walking, they found a hole in the ground and decided to explore it for treasures. unfortunately, but they had not got a torch. so they returned the following day and discovered some  paintings on the walls of the underground tunnel. they told their teacher about them. as it turned out later, the paintings were ancient.experts had examined  them   paintings and found out that they were about 17 000 years old. as a result the teacher praized the boys and they felt very proud. 
Ответ
Ответ разместил: Гость

папа принес домой одного птенца. лена насыпала ему 5 крошек. но бедняга даже не посмотрел на еду. девочка вынесла клетку на улицу и поставила у порога. слетелись  10 воробьёв. вдруг одна воробьиха взяла в клюв крошку и подлетела к птенцу.

на второй день лена бежала из школы. она спешила накормить воробышка. воробьиха уже сидела на форточке.

когда птенец подрос, лена открыла клетку. воробьиха позвала птенца. он выпорхнул в форточку и улетел.

1+5+10+1+2=19

Ответ
Ответ разместил: Alina22511

дальше измени сама

var month: integer; beginreadln(month); if ((month > 0 ) and ( month < 13)) thencase month of 1 : writeln ('january (31 days) '); 2 : writeln ('fabruary (28 days) '); 3 : writeln ('march (31 days)'); 4 : writeln ('april (31 days) '); 5 : writeln ('fabruary (28 days)'); 6 : writeln ('march (31 days)'); 7 : writeln ('january (31 days) '); 8 : writeln ('fabruary (28 days) '); 9 : writeln ('march (31 days)'); 10 : writeln ('january (31 days) '); 11 : writeln ('fabruary (28 days) '); 12: writeln ('march (31 days)'); end else writeln('error'); readln; end.

Похожие вопросы

Вопросов на сайте: