var s:string; i:integer; begin Write('Введите слово: '); Readln(s); for i:=Length(s) downto 1 do Insert(' ',s,i); Writeln('Результат: ',s) end.
Пример решения Введите слово: Паскаль Результат: П а с к а л ь
var s1,s2,s3:string; i:integer; begin Write('Введите первое слово: '); Readln(s1); Write('Введите второе слово той же длины: '); Readln(s2); s3:=''; for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i]; Writeln('Результат: ',s3) end.
Пример решения Введите первое слово: Корова Введите второе слово той же длины: собака Результат: Ксоорбоавкаа
Const n=4; m=5; var a:array [1..n,1..m] of integer; i,j,min,imin,jmin:integer; begin Randomize; Writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:6); end; writeln; end; min:=a[1,1]; imin:=1;jmin:=1; for i:=1 to n do for j:=1 to m do if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; writeln('min=a[',imin,',',jmin,']=',min); end.
Ctrl +C-1
Del-3
Ctrl+Z-4
F1-2