Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.
var rost,ves:real;
begin
writeln('Введите вес');
readln(ves);
writeln('Введите рост') ;
readln(rost);
if (rost>=168) and (rost<=178) then
if ves<=rost-115 then writeln('Допущен') else writeln('не допущен') else writeln('не допущен ');
end.
{********************************}
car rost, ves:real;
begin
writeln('введите рост и вес конкурсанта') ;
readln(rost,ves);
if (rost<=168) or (rost>=178) then writeln('не допущен')
else if ves<=rost-115 then writeln('допущен')
else writeln('не допущен');
end.
Пишу 2 варианта, какой больше понравится.