Ответ:
Ответ истена True
Gvhvhvhvhbhbjbjbjbjvyvyv8yvybuv9ug
uses crt;
var
n,k,i:integer;
r1,r2:real;
p: array[1..1000] of real;
begin
k:=0;
write('n='); read(n);
writeln('P[n]:');
for i:=1 to n do
read(p[i]);
write('r1='); read(r1);
write('r2='); read(r2);
for i:=1 to n do
begin
if (r1<p[i]) and (p[i]<r2) then k:=k+1;
end;
writeln;
write('Внутри ',k,' точки.');
end.
Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Собака=class
public
procedure Голос;
begin
Writeln('Гав!')
end;
end;
// пример вызова
begin
var Тузик:=new Собака;
Тузик.Голос
end.
Писал на PascalABC.NET, но постарался как можно ближе к Turbo сделать. Если не заработает - пишите, исправим:)
var
f : text;
i : integer;
s, j: string;
begin
Assign(f, 'in.txt');
Reset(f);
while not EOF(f) do
begin
readln(f, s);
for i := 1 to length(s) do
if ((s[i] = 'a') and ((length(s) < length(j)) or (j = ''))) then
j := s;
end;
writeln(j);
end.