Такие расширения имеют аудиофайлы
Это и есть процессор,потому что он имеет связи с внутренней памятью,также без него не может работать никакой комп,это 100% он
P.S сделай лучшим ответом если помог)
В первом задании по моему вместо тире должна стоят → (импликация)
(Последняя буква гласная ^ Третья буква согласная) → Первая буква согласная? Россия - истина, Люксембург - истина, Америка - истина, Испания - ложно.
Var
s:string;
cnt, i,j:integer;
begin
Readln(s);
for i:= 1 to length(s) do
begin
if s[i] = 'a' then write('a');
write(s[i]);
if s[i] = 'z' then cnt:= cnt+1;
end;
Writeln;
Writeln('Кол-во "z" в слове: ', cnt);
for i:= 1 to length(s) do
if s[i] <> s[length(s)-i+1] then begin
Writeln('Это не палиндром');
halt;
end;
Writeln('Это палиндром');
end.
<u>Пример:</u>
abazaba
aabaazaabaa
Кол-во "z" в слове: 1
Это палиндром
Var t,i,x,max:integer;
begin
max:=0;t:=0;
repeat
begin
x:=0;
read(x);
if (x>0) and (x=max) then i:=i+1;
if x>max then
begin
max:=x;
i:=1;
end;
t:=t+1;
end;
until (x<=0) or (t>=1000) or (x mod 1>0);
if (x<0) or (x mod 1>0) then begin i:=-1; writeln('Нельзя вводить ненатуральные числа');end;
if i=0 then writeln('Введён только ноль');
if i>0 then writeln('Чисел, равных максимуму: ', i);
end.