МКС...................это ответ
P.S.:
вдруг если училка спросит что такое
МКС -это международная космическая станция (15 стран)
Ответ:
0,366 = 3 * 10^(-1) + 6 * 10^(-2) + 6 * 10^(-3)
Объяснение:
Ответ : 2) 16 2 11
----------------------------------------------
1) 2 - сумма старших разрядов ( 1+1) ; 2 < 10
2) 16 (<18) - сумма средних разрядов
3) 11 (<18) - сумма младших разрядов
Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.
Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>