Уроки на неделе
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. думаю, что это можно назвать многоуровневым списком
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Pen.Width:=3;
Brush.Color:=ARGB(0,0,0,0); // прозрачная кисть
for var i:=0 to 3 do
for var j:=0 to 2 do
Rectangle(20+140*i,20+140*j,150+140*i,150+140*j); //4x3 квадрата
for var i:=0 to 2 do
for var j:=0 to 1 do
Rectangle(90+140*i,90+140*j,220+140*i,220+140*j); //3x2 квадрата
end.
Ни как надо переписывать
не ленись бро : )
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>