Не(х<10) или не(х четное) равнозначно х>=10 или x нечетное
=>
x - нечетное число или >=10
т.о. число, не подходящее ни под одно из этих условий - 8
ответ: 4) 8
Var
A,Max1,Max2:integer;
Begin
Max1:=0;
Max2:=0;
Repeat
Read(A);
if A>Max1 then
Begin
Max2:=Max1;
Max1:=A;
End;
Until A=0;
WriteLn(Max2);
End.
Первое пустое это 8
2е 129 а третье z
<span><em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
</span><span>begin
var s:=ReadlnString('Введите имя и фамилию:');
var g:=ReadlnString('Введите год рождения:');
var n:=ReadInteger('Сколько раз повторить вывод?');
loop n do Writeln(s,NewLine,g)
end.
<u>Пример</u>
Введите имя и фамилию: Иванов Сергей
Введите год рождения: 24.06.2001
Сколько раз повторить вывод? 3
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001</span>