По всей видимости, коммуникативные системы, используемые живыми существами, почти универсальны. Для размножения многие растения привлекают внимание животных-опылителей (особенно насекомых) при помощи ярких цветов и приятных запахов. Когда размножение уже произошло, растения обращаются к животным, которые распространяют их семена. Чтобы привлечь их внимание, растения предлагают яркие съедобные плоды, которые животные съедают. Семена при этом проходят через их пищеварительную систему.
Var
q: Single; // Результат. Если число будет больше, то указать Double
i: Single; // Число из которого необходимо получить результат. Если число будет больше, то указать Double
p: Single; // Процент. Если процент будет всегда целым числом, то указать <span>Byte</span>
begin
writeln('Введите число => ');
read(i);
writeln('Введите процент, который хотите расcчитать из введенного числа => ');
read(p);
while p < 0 do
begin
writeln('Процент не может быть меньше нуля, введите новое значение => ');
read(p);
end;
q:=(i / 100) * p;
writeln('Ваш результат из числа => ', i, ', ', p, '\% = ', q);
end.
Var i,f:integer;
a,b,c:real;
begin
begin
writeln('Введите количество ручек и цену за 1 ручку');
readln(a,b);
c:=a*b;
writeln('Цена за покупку: ',c);
end;
begin
for i:=1 to 5 do
writeln('Информатика');
end;
begin
writeln('Введите число: ');
readln(f);
if (f mod 2=0 ) then writeln('Число четное') else writeln('Число нечетное');
end;end.
Не(1*0)+(1+1) =1
1*(1+(1*не 0)*0=0
не (x=5) +(x>6) (вот тут не понимаю ,что нужно)