"(Первая буква согласная) ИЛИ НЕ (Вторая буква согласная)" - это значит, что 1-я буква согласная, а вторая не согласная. Под то условие подходит только ответ 1) Сергей
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99);
a.Println.Sorted.Println;
Writeln('Количество разных чисел ',a.Distinct.Count)
end.
<u><em>Тестовое решение:</em></u>
n= 20
60 33 12 47 79 81 33 26 73 98 82 81 71 70 96 48 13 66 29 85
12 13 26 29 33 33 47 48 60 66 70 71 73 79 81 81 82 85 96 98
Количество разных чисел 18
Номер 2 правильный, кстати я тоже прямо сейчас инфознайку решаю
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
да, второе понятие конкретизированно, и вродебы на моей памяти так не говорят. говорят СУБД