Const
<span>c=10; </span>
<span>var a:array[1..c] of integer; </span>
<span>n,i,s:integer; </span>
<span>begin </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to c do </span>
<span>read(a[i]); </span>
<span>writeln('Введите количество первых N чисел'); </span>
<span>read(n); </span>
<span>for i:=1 to n do </span>
<span>s:=s+a[i]; </span>
<span>writeln('Сумма первых ', n, ' чисел массива = ', s); </span>
<span>end.</span>
1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.
-----------------------------------
Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.
-----------------------------------
2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.
------------------------------------
Введите слово:
ученик
Верно
------------------------------------
3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------
Ответ: 20
Объяснение:
36^11 + 6^25 - 21 = 6^22 + 6^25 - 3*6^1 - 3*6^0
В данной записи 20 цифр "5".
Тип круговой диаграммы, которая используется как средство сравнения данных