Пусть данные находятся в d:\f1.txt
var
k,min,eqv,max,n:integer;
s:string;
f:text;
begin
write('Введите k: ');
readln(k);
assign(f,'d:\f1.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
n:=length(s);
if n<k then min:=min+1;
if n=k then eqv:=eqv+1;
if n>k then max:=max+1;
end;
writeln('Меньше k: ',min);
writeln('Равно k: ',eqv);
writeln('Больше k: ',max);
end.
A-10 B-11 C-12 D-13 E-14 F-15
21E₁₆ = 2 * 16² + 1 * 16¹ + 14 * 16⁰ = 512 + 16 + 14 = 542₁₀
Ответ 542
песочные часы, стрелка, рука с вытянутым указательным пальцем
Запрос можно составить на основе поля Название:
Название
условие - "Комсомольская правда" Or "Огонек"