По площади территории и численности населения Бразилия Одна из самых крупных в мире, занимает около половины площади материка. Она омывается водами Атлантического
океана. Здесь находится одна из крупнейших в мире низменностей и одно из крупнейших в
мире плоскогорий. По её территории протекает самая полноводная река в мире. Страна бо-
гата рудныки полезными ископаемыми, водными и лесный ресурсами. Много крупных
городов, основная часть которых сосредоточена у побережья.
Площадь территории |8 515 767 км2
Плотность населения 22 чел./км2
Население
190 755 тыс. чел.
САМАР
На
в условии не указано но для кодирования используется фраза "В памяти компьютера..." при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.
а для расшифровки эти коды нужно вычитать, получаем
в п а м я
3 17 1 14 33
п щ о я к
17 27 16 33 17
-
3 17 1 14 33
14 10 15 19 17
м и н с к
н щ ё п
15 27 7 17
-
3 17 1 14
12 10 26 3
к и е в
type
adrcel=^Element;
Element=record
info:integer;
next:adrcel;
end;
var
start,last,new_el:adrcel;
i:integer;
procedure del2(var start:adrcel);
var
p:adrcel;
begin
p:=start^.next;
if p<>nil then start^.next:=p^.next
end;
begin
start:=nil;
last:=nil;
new_el:=nil;
repeat
new(new_el);
write('info=');
readln(new_el^.info);
new_el^.next:=nil;
if start=nil then
start:=new_el;
else
begin
last:=start;
while last^.next<>nil do last:=last^.next;
last^.next:=new_el;
end;
write('Продолжить? (1-Да/0-Нет):');
readln(i);
until i=0;
writeln('Удалим 2-й элемент');
del2(start);
new_el:=start;
while new_el<>nil do
begin
write(new_el^.info:4);
new_el:=new_el^.next;
end;
readln;
end.