Var
s:string;
i,n,k:integer;
begin
Writeln('Введите текст: '); Readln(s);
n:=Length(s); k:=0;
for i:=1 to n-2 do
if s[i] in ['О','о'] then
if s[i+1] in ['Й','й'] then
begin Write(s[i+2]); Inc(k) end;
if k=0 then Writeln('"ой" в тексте не встречается')
end.
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
Var
x,y:real;
i:integer;
begin
y:=0;
Write('x= ');
Read(x);
for i:=1 to 11 do y:=i+y*x;
Writeln('Y= ',y)
end.
<u>Пример</u>
x=3.6
Y= 700939.22164521
1*10^1+3*10^0+2*10^-1+1*10^-2
1*8^2+2*8^1+3*8^0+2*8^-1
1*16^1+2*16^0+3*16^-1
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>