а я разве их не решал
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.
var
i:integer;
s:real;
R,Q,P:arr;
X:array[0..3] of integer;
function Sum(a: arr): integer; {функция вычисления суммы элементов массива}
var i:integer;
begin
foreach i in a do {вычисляем сумму элементов по заданному правилу}
if (i>=2) and (i<=4) then Result :=Result+i
end; {результатом функции будет сумма}
begin
randomize; {заполняем массивы случайными числами}
for i:=1 to 10 do
begin
R[i]:=random(10);
Q[i]:=random(10);
P[i]:=random(10)
end;
write('R: '); {распечатываем содержимое массивов на экране}
for i:=1 to 10 do write(R[i],' ');
writeln;
write('Q: ');
for i:=1 to 10 do write(Q[i],' ');
writeln;
write('P: ');
for i:=1 to 10 do write(P[i],' ');
writeln; {а тут собственно само решение задачи}
X[1]:=Sum(R);{передаем в ф-цию Sum массив R, она считает сумму и записывает в Х1}
writeln('X[1]=',X[1]);
X[2]:=Sum(Q);{передаем в ф-цию Sum массив Q, она считает сумму и записывает в Х2}
writeln('X[2]=',X[2]);
X[3]:=Sum(P);{передаем в ф-цию Sum массив P, она считает сумму и записывает в Х3}
writeln('X[3]=',X[3])
end.