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.
Sub z()
Dim a(8) As String
For i = 1 To 8
a(i) = InputBox("Введи слово")
Next i
For i = 1 To 8
Cells(i + 1, 1) = a(i)
n = Len(a(i))
Cells(i + 1, 2) = n
Cells(i + 1, 3) = Mid(a(i), 1, 1)
Cells(i + 1, 4) = Mid(a(i), n, 1)
Next i
<span>End Sub
Первую строку не использовал, оставил для заголовков</span>
Верный ответ 1
сместиться на (-12 -8)
За 1 чикл положение чертежника меняется на
(-2+3+2; -1+2+1)=(3;2)
Это повторяется 4 раза
(3*4;2*4)=(12;8)
нам нужно вернуться, следовательно совершить обратное действие (-12;-8)
Либо можно просто нарисовать.
Const n=4; m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(1000);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 7=0)and(a[i,j]>99)and(a[i,j]<1000) then a[i,j]:=a[i,j]-10;
writeln('New:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример<span>889 188 17 186 772
394 121 406 679 936
20 147 868 691 450
525 73 575 232 416
New:
879 188 17 186 772
394 121 396 669 936
20 137 858 691 450
515 73 575 232 416
</span>
1. Переведём к одним и тем же единицам
100 МБит = 100/8 = 12,5 МБайт
2.
12,5/1,39 = 8,9928
3. Округлим вверх
<span>8,9928 -> 9 шт
Это ответ
</span>