Чтобы удобнее найти было, не?
Иров - учитель
Пориченко - водитель
Суворов - модельер
Гусев - военный
Абакумов - Музыкант
Var
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.
I)
var a,b:real;
c:integer;
begin
c:=0;
a:=243;
while a>=32 do begin
a:=a/3*2;
c:=c+1;
end;
writeln(c);
<span>end.
</span>II)
var s,b:integer;
begin
for b:=1 to 51 do
begin
s:=s+b;
end;
writeln(s);
end.
Const n=6; m=4;
var
a:array[1..n,1..m] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
c:=a[3,j]; a[3,j]:=a[5,j]; a[5,j]:=c;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
25 4 33 17
19 23 42 9
36 40 1 48
21 44 13 18
38 29 8 7
24 13 5 13
Полученный массив:
25 4 33 17
19 23 42 9
38 29 8 7
21 44 13 18
36 40 1 48
24 13 5 13