Получать слова можно по-разному. Самое простое - собирать их по буквам: var st1,st2:string[10]; begin readln(st1); st1:='клавиатура'; st2:=st1[7]+st1[8]+st1[9]; writeln(st2); st2:=st1[9]+st1[8]+st1[1]+st1[3]; writeln(st2); st2:=st1[2]+st1[3]+st1[4]+st1[1]+st1[3]; writeln(st2); st2:=st1[4]+st1[3]+st1[7]+st1[10]; writeln(st2); end.
Const n = 5; m = 5; var a:array[1..n,1..m] of integer; i,j,s:integer; begin //Для теста заполним массив сл.числами for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln;writeln; end; //сумма всех элементов массива for i:=1 to n do for j:=1 to m do s:=s+a[i,j]; writeln('сумма всех элементов массива: ',s); //сумма каждой строки for i:=1 to n do begin s:=0; for j:=1 to m do begin s:=s+a[i,j]; end; writeln ('Строка: ',i,' сумма:',s); end; end.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
var st1,st2:string[10];
begin
readln(st1);
st1:='клавиатура';
st2:=st1[7]+st1[8]+st1[9];
writeln(st2);
st2:=st1[9]+st1[8]+st1[1]+st1[3];
writeln(st2);
st2:=st1[2]+st1[3]+st1[4]+st1[1]+st1[3];
writeln(st2);
st2:=st1[4]+st1[3]+st1[7]+st1[10];
writeln(st2);
end.
Результат:
тур
рука
лавка
вата