uses crt; var s,sl: string; i,k: integer; begin writeln('Введите строку'); readln(s); s:=s+' '; sl:=''; for i:=1 to length(s) do if s[i]<>' ' then sl:=sl+s[i] else begin if (sl[1]=sl[length(sl)]) and (length(sl)<>0) then inc(k); sl:=''; end; writeln('Количество слов, начинающихся и заканчивающихся одной буквой = ',k); readkey end.
Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік.
Животные потребляют готовые вещества (гетеротрофы), растения производят их сами (автотрофы)... есть различия в строении клетки...
Животные отличаются от растений развитием при для схватывания пищи.
Наиболее существенное различие между животными и растениями в питания. Зеленые растения получают из внешней среды одни лишь неорганические вещества: воду, минеральные соли из почвы и углекислый газ из воздуха. Из этих неорганических веществ в клетках зеленого растения создаются органические вещества. Такой питания называют растительным или автотрофным.
Ни одно животное не может жить за счет неорганических веществ и создавать из них в своем теле органические вещества. В отличие от растений животным необходимы для питания сложные органические вещества: белки, жиры и углеводы, которые они получают, поедая растения или других животных. Такой тип питания называется животным или гетеротрофным.
uses crt;
var s,sl: string;
i,k: integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' ';
sl:='';
for i:=1 to length(s) do
if s[i]<>' ' then sl:=sl+s[i]
else
begin
if (sl[1]=sl[length(sl)]) and (length(sl)<>0) then inc(k);
sl:='';
end;
writeln('Количество слов, начинающихся и заканчивающихся одной буквой = ',k);
readkey
end.