Завдання 1. Перевести числа із звичайного виду у формат з плаваючою комою: в)0.0000187 е) 1.4*10+18 a) 0.0000007 6) 180000000 г) 5*10-18 д) 0.1*10-10 Привести числа до нормального виду а) 0.1E+6 б) 1.87E-18 г) 0, 14E-8 д) 11E+4 Знайдіть помилку і поясніть: а) 15-E6 б) 0.1Е-8 г) Е-5 д) 1.3E+39.1 ж)7E 3)Е+9 в) 17E+3 е) ЗЕ-14 B) cos3 е) +E-12 і) к)123EO a с
program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.