Const n1='file1'; n2='file2'; n3='file3';
var f1,f2,f3:file of char; c:char;
begin
assign(f1,n1); assign(f2,n2); assign(f3,n3);
reset(f1); rewrite(f3);
while not(eof(f1)) do begin read(f1,c); write(f3,c) end;
close(f1); close(f3);
reset(f2); rewrite(f1);
while not(eof(f2)) do begin read(f2,c); write(f1,c) end;
close(f1); close(f2);
reset(f3); rewrite(f2);
while not(eof(f3)) do begin read(f3,c); write(f2,c) end;
close(f3); close(f2);
erase(f3)
<span>end.</span>
javascript:B.reduce(function(s, c, i) { return i % 2 == 0 ? s + c : 0; }, 0);
Пло́тность населе́ния — число жителей, приходящееся на 1 км² территории. То есть нужно количество жителей разделить на площадь.
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a=b) and (a=c) and (c=b)
then writeln('переменные =')
else
begin
a:=a+10;
b:=b+10;
c:=c+10;
end;
end.