Ответ:
1 - D
3- В ( скорее всего)
4 - С
5 - ломаная линия ( нарисуй три стороны восьмиугольника )
6 -----
7 - скорее всего В, ибо С не видно...
Объяснение:
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>
<span>дано: i=4</span>
<span>найти: N - ?
</span><span><span><span><span>
решение:
формула: <span>N=2i</span> => <span>N=2×4</span>, N=16</span> </span><span /></span></span>
ответ: 16
Var t, a, i: integer;
begin
write('Введите количество минут: ');
read(t);
a:=1;
for i:=1 to t do
begin
a:=a*2;
writeln('Бактерий через ', i , ' минут: ', a);
end;
<span>end.</span>
1 условие
2 условие
3 действие
4 действие
5 действие
( Алгоритм If-elif-else)