1) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program program1; var s,subs:string;c:char;isOneNumber:boolean;p:byte;n,err:integer; begin writeln('‚Введите фразу'); readln(s); c:=s[1]; isOneNumber:=false; p:=pos(' ',s); while p<>0 do begin if p=1 then begin s:=copy(s,2,length(s)); p:=pos(' ',s); continue; end; subs:=copy(s,1,p-1); s:=copy(s,p+1,length(s)); p:=pos(' ',s); val(subs,n,err); if err<>0 then continue; if (n=0) or (n>9) then continue; isOneNumber:=true; break; end; if isOneNumber then writeln('‚ Есть числа, сосотоящие из одной цифры') else writeln('‚Нет чисел, состоящих из одной цифры'); end.
Var m1,m2,m3:array of integer; i,n:integer; begin write('Введите размер массивов'); readln(n); setlength(m1,n); setlength(m2,n); setlength(m3,n); //Заполнение массивов for i:=0 to n-1 do begin m1[i]:=random(21)-10; m2[i]:=random(21)-10; m3[i]:= m1[i]+m2[i]; end; //Вывод массивов for i:=0 to n-1 do write(m1[i]:4); writeln; for i:=0 to n-1 do write(m2[i]:4); writeln; for i:=0 to n-1 do write(m3[i]:4); writeln; end.
