Progtam asd;
Uses crt;
Var a,n,s:integer;
begin
readln (n);
for a:=3 to n do
s:=a+s;
end.
var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
Можно во так
Россия
Москва,Санкт-Петербург,Новосибирск
И потом от каждого города 2 пригорода(в Интранете найди)
Я не сильна в информатике,но посчитала так: 64*32=2048 символов в данной статье;2048*2=4096 байт в кодировке;и 1 Мб=1024 Кб,по-этому 4096:1024=4 Кб
Ответ:4 Кб.