Уроки на неделе
1.Понедельник
1.1.Информатика
1.2.Русский язык
1.3.Литература
2.Вторник
2.1.Английский язык
2.2.Биология
2.3.География
3.Среда
3.1.История России
3.2.ОБЖ
3.3.Физкультура
4.Четверг
4.1.Обществознание
4.2.Черчение
4.3.Религии России
5.Пятница
5.1.Русский язык
5.2.Информатика
5.3.Физкультура
6.Суббота
6.1.МХК
6.2.Физика
6.3.Алгебра
P.S. думаю, что это можно назвать многоуровневым списком
Ну, я вопрос не так хорошо понял. Думаю что в *С. *С = градусы Цельсия.
Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.
Выбирай точка с запятой, например:
echo "Hello World";
Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.