1) по тексту построить таблицу типа
2) и модели
вопрос 1
территория австралии и океании - 8,5 млн. кв. км.
плотность населения в африке в 1989 г. была 21 человек на кв. км.
население европы в 1989 г. составило 701 млн. человек.
территория южной америки - 17,8 млн. кв. км.
население северной и центральной америки в 1989 г. составило 422 млн. человек. плотность населения в северной и центральной америке в 1970 г. была 13 человек на кв. км.
территория всего мира - 135,8 млн. кв. км.
плотность населения в австралии и океании в 1989 г. была 3 человека на кв. км. население южной америки в 1989 г. составило 291 млн. человек.
территория африки - 30,3 млн. кв. км.
население австралии и океании в 1989 г. составило 26 млн. человек.
плотность населения во всем мире в 1970 г. была 27 человек на кв.км.
территория азии - 44,4 млн. кв. км.
население всего мира в 1989 г. составило 5201 млн. человек.
территория северной и центральной америки - 24,3 млн. кв. км.
население азии в 1970 г. составило 2161 млн. человек.
плотность населения в европе в 1989 г. была 67 человек на кв. км.
плотность населения в азии в 1970 г. была 49 человек на кв. км.
население африки в 1970 г. составило 361 млн. человек.
население австралии и океании в 1970 г. составило 19 млн. человек.
население южной америки в 1970 г. составило 190 млн. человек.
плотность населения в африке в 1970 г. была 12 человек на кв. км.
население северной и центральной америки в 1970 г. составило 320 млн. человек. плотность населения в южной америке в 1970 г. была 11 человек на кв. км.
население африки в 1989 г. составило 628 млн. человек.
плотность населения в австралии и океании в 1970 г. была 2 человека на кв. км. население европы в 1970 г. составило 642 млн. человек.
плотность населения во всем мире в 1989 г. была 38 человек на кв. км.
территория европы - 10,5 млн. кв. км.
плотность населения в северной и центральной америке в 1989 г. была 17 человек на кв. км.
плотность населения в европе в 1970 г. была 61 человек на кв. км.
население азии в 1989 г. составило 3133 млн. человек.
плотность населения в южной америке в 1989 г. была 16 человек на кв. км.
население всего мира в 1970 г. составило 3693 млн. человек.
плотность населения в азии в 1989 г. была 71 человек на кв. км.
вопрос 2
1) у миши x марок, а у андрея в полтора раз больше. если миша отдаст андрею 8 марок, то у андрея станет марок вдвое больше, чем останется у миши.
2). во втором цехе работают x человек, в первом – в 4 раза больше, чем во втором, а в третьем - на 50 человек больше, чем во втором. всего в трех цехах завода работают 470 человек.
85
s2 - Заданное слово
Идея проста: мы проходим по заданной строке и копируем подстроку, начиная с символа i, с количеством символов, равным количеством символов заданного слова. Например:
Символьная строка:
34строка3254строка
Заданное слово:
строка
Мы просто берём и проходим циклом
34строка3254строка
34строка3254строка
34строка3254строка
...
и т.д. до самого конца. Если рассматриваемая нами подстрока равна заданному слову, то мы увеличиваем счётчик k на 1, после завершения цикла мы просто возвращаем значение нашего счётчика - количество вхождений заданного слова в строку.
P.S. Мы идём циклом не от 1 до length(s), а от 1 + l1 - l2. К примеру в нашей строке
нет смысла рассматривать подстроку, начиная отсюда
34строка3254строка
т.к. символов в ней явно меньше чем в самом заданном слове, следовательно, дальше оно нам уже не попадётся:)
Исходный код в приложении.
a:integer;
begin
readln(a);
writeln(not odd(a));
if a mod 10 = 7 then b:=true;
writeln(b);
writeln(not odd(a mod 10));
end.
var r,a:integer;
begin
read(r,a);
if a*a>pi*r*r then writeln('Square')
else if a*a<pi*r*r then writeln('Circle')
else writeln('Equal');
end.
var m1,m2,v1,v2:integer;
begin
read(m1,v1,m2,v2);
if m1/v1>m2/v2 then writeln('p1>p2')
else if m1/m2<m2/v2 then writeln('p1<p2')
else writeln('p1=p2');
end.
var a,b:real;
begin
read(a,b);
b*=0.45;
if a>b then writeln(b)
else if a<b then writeln(a)
else writeln('Equal');
end.