А) Это высказывание. 1. Простое
Б) Не высказывание.
В) Это высказывание. 0. Простое.
Г) Это высказывание. 1. Простое.
Д) Это высказывание. 0. Простое.
Е) Высказывание(вот сейчас не уверена, о высказываниях можно судить только в настоящем времени). В крайнем случае, 1. Простое.
Ж) Высказывание. 0. Простое. Имеет логическую операцию НЕ.
Объяснение:
Извините, 4й пункт сама не знаю :(
Правда = 1 Ложь = 0. Извините, что поздно. Пишу, что знаю(а я пока в этой жизни весьма мало знаю, хоть и отличница) Надеюсь, хоть чем-то
var s,s1:string;
i,j,count:integer;
begin
read(s);
for i:=length(s) downto 2 do
for j:=2 to i do
if s[j]<s[j-1] then begin
swap(s[j],s[j-1]);
s1:=s;
end;
//сортируем строку в алфавитном порядке чтобы потом было легче
//считать количество встреч одного и того же символа
count:=1;
write(s1[1],': ');
//первый символ в любом случае встречается один раз
for i:=2 to length(s1) do
if s1[i]=s1[i-1] then inc(count) else begin
writeln(count);
write(s1[i],': ');
count:=1
end;
//считаем количество совпадений для каждого символа
writeln(count);
end.