А) <span>0,00375*10^3 = 3,75
б) </span><span>1,234*10^(-2) = 0,01234
в) </span><span>5,737*10^(-2) = 0,05737</span>
Var a,b,c:array[1..9] of Longint;
i,k:longint;
begin
for i:=1 to 9 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
read(b[i]);
end;
for i:=1 to 9 do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
<span>end.</span>
PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.
Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50
600×800 =480 000 точек
480 000 точек × 1 бит =408 000
480 000 бит/8 бит /1024 байт =58,59 Кбайт
ответ:58,59 кбайт
// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>
