Var
y,x:real;
i:integer;
Begin
For i := 1 to 10 do Begin
x:=i;
y:=(3*sqr(x)-sqrt(x+1))/(2-x);
writeln('X',i,' = ',x,', Y',i,' = ',y);
End;
<span>End.</span>
F= ¬(X+Y+¬(X*Y))*¬(X*Y)
F= ¬(X+Y+¬X+¬Y)*¬(X*Y)
F = ¬1 *¬(X*Y)
F=0*¬(X*Y)
F = 0
Var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
p:=pos('ба',s);
if p>0
then
begin
while p>0 do begin delete(s,p,2); insert('ро',s,p); p:=pos('ба',s); end;
writeln(s);
end
else writeln('В строке нет слогов "ба"');
end.
Пример:
<span>Введите строку:
база
роза</span>
И НА СОЛНЦЕ ЕСТЬ ПЯТНА.
таблица кодировок ascii windows 1251
Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.