Var
k:integer;
begin
for k:=1 to 20 do begin
writeln('Привет',' ');
end;
for k:=1 to 20 do begin
write('Привет',' ');
end;
end.
Смотри вложение
..............................
program raf105;
var a:array[1..30,1..20] of string;
i,j,o:integer;
s:string;
begin
for i:=1 to 30 do
for j:=1 to 20 do
a[i,j]:= '';
writeln('Вводите слова по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(s);
if s <> '0'
then
begin
o:= o+1;
for i:=1 to length(s) do
a[o,i]:= s[i];
end;
until s = '0';
writeln;
writeln('Вывод:');
for i:=1 to o do
begin
for j:=1 to 20 do
if a[i,j] = 'а'
then a[i,j]:= 'о';
for j:=1 to 20 do
if j <> 1
then
begin
a[i,1]:= a[i,1] + a[i,j];
a[i,j]:= '';
end;
writeln(a[i,1]);
end;
end.
555 16 вроде би посмотри в Googl
Пусть Команда1 = <span>Сместиться на (х1,у1)
Чтоб вернуться в ту же точку</span>, надо чтоб смещение было (0;0)
1)
dx = 0 = 2(x1+3+2)-6 = 2x1+4 = 0, x1=-2
dy = 0 = 2(y1+2+1)-4 = 2y1+2 = 0, y1=-1
Команда1 = <span>Сместиться на (-2,-1)
</span>
2)
dx = 0 = 4(x1+3+1)-8 = 4x1+8 = 0, x1=-2
dy = 0 = 4(y1+3-2)+12 = 4y1+16 = 0, y1=-4
Команда1 = Сместиться на (-2,-4)