Var f:array [1..19] of real;
i,k:integer;
begin
k:=0;
for i:=1 to 19 do begin
Write('f[',i ,']=');
readln(f[i]);
if f[i]=6 then k:=k+1;
end;
Writeln('Количество шестерок: ',k);
readln;
end.
<span>Если первый — гном, то в силу его слов второй и третий — лешие, что невозможно из-за высказывания второго жителя леса. Значит, первый — леший. Если второй — леший, то в силу его слов третий тоже леший, но тогда первый сказал правду, а он должен был соврать. Значит, второй — гном. В силу его слов третий тоже гном. Третий получается честно : ''а) один''.</span>
Первый пропуск : k=
Второй: k
Третий: g
Четвёртый: n
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой