var s1,s2,c1,c2:string;
i:integer;
Begin
read(s1,c1,c2);
for i:= 1 to length(s1) do begin
s2:=s2 + s1[i];
if s1[i]=c1 then s2:=s2+c2;
end;
writeln(s2);
End.
Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.
В память компьютера в котором 5 Гбайт поместится 2500 книг по 2 Мбайт
Задача 2
var a,b:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a>=0) and (a <=15) or (b>=0) and (b<=15) then
writeln(sqr(a)+sqr(b))
else
writeln ((a+b)/2);
readln;
<span>end.
задача 1
</span>var x:real;
begin
write('x= ');
readLn(x);
if x<6 then WriteLn(sqr(x));
if (x>=-6)and(x<6) then
WriteLn(Abs(x)+4);
if x>=6 then
writeLn(x*(x+1))
end.
задача 3
Var a,b,c,d:real;
x1,x2:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
d:=sqr(b)-4*a*c;
if D>0 then begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
end;
if d=0 then writeln('koren=',-b/2*a);
if d<0 then writeln
('kornei net')
<span>End.</span>