//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.
Во всех программах, если будешь использовать функцию scanf() или поток std::cin, то вывод всех элементов делай в другом цикле.
Могу на C++ сделать
{
int N;
cin>>N;
if(N%11==0)
cout<<1;
else cout<<0;
return 0;
}
Var n:longint;
c:real;
begin
write ('N = ');
readln(n);
if (n mod 2 = 0) and (n>0) then c:=n/4 else
if (n mod 2 = 0) and (n<0) then c:=n*5 else
if (n mod = 1) then c:=sqr(n);
write (c:0:2);
end.
1. jpg, png, gif, bmp
2. Векторые/растровые
3. Растровый