nomer3
program ab;
uses crt
uses sysutils;
var s,s1: string;
i,j: integer;
begin
clrscr;
write('введите строку слово');
writeln;
readln(s);
for i: =1 to length(s) do
for j: =1 to length(s) do
if (s[i]=s[j]) and(i< > j)
then
if pos(s[i], s1)=0
then s1: =s1+s[i]+' ';
write('повторяющиеся символы: ', s1);
readln;
end.
nomer2
program as
uses crt;
var s,sp: string;
i: integer;
begin
clrscr;
write('s=');
readln(s);
sp: ='';
for i: =1 to length(s) do
sp: =s[i]+sp;
if sp=s then writeln ('палиндром')
else writeln ('не палиндром');
readkey
end.
nomer1
function compare(s1,s2: string): boolean;
begin
result: =s1=s2;
end;
var s1,s2: string;
begin
readln(s1);
readln(s2);
if compare(s1,s2) then write('yes')
else write('no')
end.
1) 1
2) 2
3) 2
4) 2
Объяснение:
1)
т.к. выражение в информатике - запись про которую можно однозначно сказать, оно ложно или нет
2)
а) НЕ (Первая буква согласная) - Первая буква гласная
б) НЕ (Последняя буква гласная) - Последняя буква согласная
ИЛИ - Одно из двух условий
ложно для имени - ни условие а), ни условие б) не выполняется
Пимен выполняет условие б)
Кристина не выполняет ни одно из условий
Ирина выполняет условие а)
Александр выполняет условие а)
3)
¬ - оператор НЕ
& - оператор И
В общем виде НЕ(условие 1) И НЕ(условие 2)
Выражение истинно если не выполняются оба условия
Условие 1: x < 6.
Условие 2: x < 7.
Искомое число больше чем 6 и 7. Минимальное целое - 8.
Из предложенных вариантов подходит только 9