4 записей удовлетворяют данному условию
Одноранговая, конечно: любой участник может считать данные
Вторая буква согласная только в №1 и 4., проверяем второе условие. 3 гласных только в №4 условие первая буква уже и не нужно, т.к. вып. одно из двух, входящих в дизъюнкцию.
Ответ №4
Считываем сколько чисел получим(или сами решаем чему равно n), делаем цикл на считывание каждого, ищем в них мин и макс.
VAR N, i:integer;
k, min, max:real;
begin
readln(N);
for i:=1 to N do begin
readln(k);
if i=1 then begin min:=k; max:=k end
else if k<min then min:=k
else if k>max then max:=k;
end;
writeln(min-max);
end.
1) for i:=20 to 35 writeln(i);
2) read(b);
for i:=10 to b writeln(i*i);
3) for i:=1 to 10 write(20,',');