//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.
A10=3*10^2+6*10^1+1*10^0+1*10^( -1 ) +0*10^( -2 )+5*10^( -3 )
Поиск: Путем нажатия комбинации клавиш ctrl + f <em>(встань в любую строку и нажми)
</em>Замена: Правка - заменить (на панели в txt редакторе, вверху где сохранить, файл, открыть и т.п.)
По курсу валют
Долларов р:55.65
Евро р:69.45
{т.е. квадрат лежит на оси x начиная от 0 до 5, т.к. сторона квадрата =5, аналогично и с осью y, отсюда условия x>=0 x<=5 y>=0 y<=5}
var
x,y:real;
begin
readln(x,y);
if (x>0)and(x<5)and(y>0)and(y<5)then
writeln('попадает')
else
writeln('не попадает');
end.