Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.
Систем может быть несколько чтобы в дальнейшем задать вопрос пользователю какую систему загрузить?
если системный диск указать то не получится изменить параметры загрузки системы
я бы так ответил
А) ложь
б) истина
в) ложь
г) истина
д) истина
е) ложь
ж) ложь
и) ложь
к) истина