Система команд исполнителя робот, “живущего” в прямоугольном лабиринте на клетчатой плоскости:
вверх
вниз
влево
вправо
при выполнении этих команд робот перемещается на одну клетку соответственно: вверх ↑, вниз ↓, влево ←, вправо →.
четыре команды проверяют истинность условия отсутствия стены у той клетки, где находится робот:
сверху свободно
снизу свободно
слева свободно
справа свободно
цикл
пока команда
выполняется, пока условие истинно, иначе происходит переход на следующую строку.
при движении в сторону стены робот разрушается, и выполнение программы прерывается.
сколько клеток лабиринта соответствует требованию, что, выполнив предложенную ниже программу, робот остановится в той же клетке, с которой он начал движение?
начало
пока вверх
пока влево
пока вниз
пока вправо
конец
варианты ответа
1) 1
2) 2
3) 3
4) 4
begin
readln(n);
if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end;
if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end;
if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end;
if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end;
if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end;
if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end;
if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end;
if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end;
И так до 12 раз...
Я не уверен что тебе нужен такой монстр...
В место к примеру 1 месяца пишешь январь...
begin
var s:=ReadLines('in.txt').ToArray;
var n:=StrToInt(s[0]);
var a:=s[1].ToWords.Select(e->StrToInt(e)).ToArray;
var f:=OpenWrite('out.txt');
Writeln(f,n,' - (кол-во чисел)');
foreach var e in a do Write(f,e,' '); Writeln(f);
Writeln(f,'Среднее значение четных ',
a.Where(x->x.IsEven).Average);
Writeln(f,'Среднее значение нечетных ',
a.Where(x->x.IsOdd).Average);
f.Close
end.
Файлы in.txt и out.txt находятся во вложении.
Содержимое файла out.txt:
15 - (кол-во чисел)
-22 49 33 47 -10 -1 20 -18 2 21 2 -25 21 -47 -36
Среднее значение четных -8.85714285714286
Среднее значение нечетных 12.25