Определите имена пустых парковочных мест,
если park[2,5]=’желтая машина’.

https://resh.edu.ru/uploads/lesson_extract/2017-09-05_m-3-11750/3064/616/OEBPS/objects/b000011/l_8.png

park[4,2]

park[2,4]

park[3,2]

park[2,6]

park[1,6]

park[2,1]

park[2,3]

park[1,5]

park[2,7]

park[1,2]

park[2,2]

#include <iostream>

int main()
{
    int n;
    std::cin >> n;
    int k;
    switch(n)
    {
    case 1:
        k = 5; // 5 - кол-во уроков в понедельник;
        break;
    case 2:
        k = 6; // во вторник
        break;
    case 3:
        k = 6; // в среду и т.д.
        break;
    case 4:
        k = 5;
        break;
    case 5:
        k = 6;
        break;
    case 6:
        k = 4; // в субботу
        break;
    default:
        k = 0;
    }
    std::cout << "Количество уроков: " << k << std::endl;
}

1.                                          

program raf105;

var

 sum: integer;

begin

 for var i:=1 to 100 do

   if i mod 2 = 0 then sum:= sum + i;

 writeln('Вывод: ',sum);

end.

2.                                          

program raf105;

var

 glas: string:= 'аяоёуюыиэе';

 input: string;

 glasCount: integer;

begin

 write('Введите слово: ');

 readln(input);

 lowerCase(input);

 for var i:= 1 to length(input) do

   for var j:= 1 to length(glas) do

     if input[i] = glas[j] then inc(glasCount);

 writeln('Гласных букв: ',glasCount);

end.

3.                                          

program raf105;

var

 count: integer;

begin

 for var i:=1 to 500 do

   if i mod 2 <> 0 then inc(count);

 writeln('Вывод: ',count);

end.

PascalABC