Алг
нач
цел a,b
ввод a,b
вывод "площадь: ",a*b,"; "
вывод "периметр: ",(a+b)*2
кон
Var
a: array[1..10] of integer;
m, i,s: integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(+10) + 1;
if a[i] > m then m := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=m then s:=s+1;
end;
writeln(s);
end.
По всей видимости, коммуникативные системы, используемые живыми существами, почти универсальны. Для размножения многие растения привлекают внимание животных-опылителей (особенно насекомых) при помощи ярких цветов и приятных запахов. Когда размножение уже произошло, растения обращаются к животным, которые распространяют их семена. Чтобы привлечь их внимание, растения предлагают яркие съедобные плоды, которые животные съедают. Семена при этом проходят через их пищеварительную систему.
128 кб * 1024 * 8 = 1048576 бит
128 кб / 1024 = 0,125 мб