Ответ: Ответ 2) *re*.da*, т.к * - означает неопределенное кол-во символов или нуль символов, а ? - означает один какой-либо символ.
5! записывается как 120 (надо вычислять)
LXIV (римское) записывается как 64
11/4 записывается как 11/4 (деление), либо как результат 2.75
-1/6 записывается как -1/6 (деление), либо как результат с приемлемой точностью (-0.666...6)
√2 записывается как функция Sqrt(2), либо как результат с приемлемой точностью (1.4142135623730950488016887242...)
5·10⁶ записывается как 5e6
10⁶ записывается как 1e6
1/100000 записывается как 0.000001 или 1e-5
uses Robot;
begin
Task('cif2');
while FreeFromRight do begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
end.
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
var num1,num2,i:integer;
nums:array [1..10] of integer;
begin
i:=1;
while (i <= 10) begin
writeln('Vvedite ',i,' paru!');
write('num 1: ');readln(num1);
write('num 2: ');readln(num2);
if(num1 >= num2) then nums[i]:=num1 else nums[i]:=num2;
i:=i+1;
end;
i:=1;
while(i<=10)begin
write(nums[i],' ');
i:=i+1;
end;
end.
