<span>PROGRAM</span> Probel;
<span>var</span> s<span>:</span><span>string</span>; n<span>,</span>i<span>:</span><span>integer</span>;
<span>begin</span>
<span>writeln</span><span>(</span><span>'введите текст с пробелами '</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>; repeat inc(i);
n<span>:=</span>length<span>(</span>s<span>)</span>;
<span>if</span><span>(</span>s<span>[</span>i<span>]</span><span>=</span><span>' '</span><span>)</span><span>and</span><span>(</span><span>(</span>s<span>[</span>i<span>+</span><span>1</span><span>]</span><span>=</span><span>' '</span><span>)</span><span>)</span><span>then</span>
<span>begin</span>
delete <span>(</span>s<span>,</span>i<span>,</span><span>1</span><span>)</span>;dec<span>(</span>i<span>)</span>;
<span>end</span>;
<span>until</span> i<span>=</span>n;
<span>writeln</span><span>(</span><span>'удалены лишние пробелы '</span><span>)</span>;
writeln(s);
<span>end. </span>
1) 1
2) 3
3) 2
4)если там один ответ то 2,если допускается несколько то 1 и 2
5) овал
6) 2
7) 2
8) 3
9)<span>Литерный тип обозначается именем </span>char<span> (от слова </span><span>character </span><span>- символ, знак).
</span>Значением переменной литерного типа является один символ из набора символов, определяемого конкретной реализацией. для любого набора символов (литер)все символы фиксированы и упорядочены;<span><span>включены все прописные буквы латинского алфавита от <span>A </span>до<span> Z</span>; это множество упорядочено по алфавиту;</span>включены десятичные цифры от 0 до 9; это множество по возрастанию цифр и связано;<span>если в реализации допускаются строчные латинские буквы от <span>a </span>от z, то они должны быть упорядочены по алфавиту;</span>включены такие символы, как пробел, запятая, точка и др.;</span><span>отношение порядка между двумя символами множества значений типа char должно быть таким же, как и между их порядковыми номерами.</span>ТАК ЧТО СКОРЕЕ ВСЕГО ЭТО БУДЕТ ОТВЕТ 1 И 2
10) 3
11 ) 3
Переименовать, перемистить, удалить,сменить значок......
Program pr;
var x:integer;y:real;
begin
write('X=');
readln(x);
y:=cos(2*x)+sin(x);
writeln('y=',y);
end.
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>