Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X чётное) И НЕ (X = 11) - id1340735920210813 от Simps0n 13.08.2021 02:51

Question

Информатика: Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X чётное) И НЕ (X = 11)

Simps0n · 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.

Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X чётное) И НЕ (X >= 11)

MOGZ ответил