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

Question

Информатика: Сколько различных решений имеет логическое уравнение. Задание по информатике за 10ый класс.

sohibjamol2008 · Accepted Answer

Type
    t = record
        name: string[15];
        mishours: integer
    end;

var
    list: array[1..10] of t;
    n, i, k0, k20: integer;

begin
    writeln('Введите количество учащихся');
    readln(n);

    k0 := 0;
    k20 := 0;
    for i := 1 to n do
        with list[i] do
        begin
            write('Фамилия имя = ');
            readln(name);
            write('Пропущенных часов = ');
            readln(mishours);

            if mishours <= 0 then k0 := k0 + 1;
            if mishours > 20 then k20 := k20 + 1
        end;

    writeln('Количество людей без пропусков = ', k0:3);
    writeln('Количество людей с пропусками больше 20 часов =', k20:3)
end.

MOGZ ответил