Контрольна робота №4 8 клас Лазарус

х := a-3*b;

B := StrToFloat(Edit2.Text);

Label1.Caption := FloatToStr(z);

немає правильної відповіді

х := a-3*b;

B := StrToFloat(Edit2.Text);

Label1.Caption := FloatToStr(z);

немає правильної відповіді

х := a-3*b;

B := StrToFloat(Edit2.Text);

Label1.Caption := FloatToStr(z);

немає правильної відповіді

a:=strtofloat(Edit1.text);

b:=strtofloat(Edit1.text);

x:=a-3*b;

if x=0

then label1.caption:=’Вираз значення не має: ділення на 0’

Else begin; 

y:=a+2*b;

z:=y/x;

label1.caption:=floattostr(z);

end;

a:=strtofloat(Edit1.text);

s:=a;

n:=1;

while s<=100 do

begin

a:=a+3;

s:=s+a;

n:=n+1;

end:

label1.caption:=inttostr(n);

end;

k:=1;

a:=12;

while a<100 do

begin

a:=2*a-4;

k:=k+1;

end;

s:=0;

a:=1;

k:=1;

while a<50 do

begin

s:=s+a;

k:=k+1;

a:=k*k;

end;

a:=strtofloat(Edit1.text);

b:=strtofloat(Edit1.text);

x:=a-3*b;

if x=0

then label1.caption:=’Вираз значення не має: ділення на 0’

Else begin; 

y:=a+2*b;

z:=y/x;

label1.caption:=floattostr(z);

end;

a:=strtofloat(Edit1.text);

s:=a;

n:=1;

while s<=100 do

begin

a:=a+3;

s:=s+a;

n:=n+1;

end:

label1.caption:=inttostr(n);

end;

k:=1;

a:=12;

while a<100 do

begin

a:=2*a-4;

k:=k+1;

end;

s:=0;

a:=1;

k:=1;

while a<50 do

begin

s:=s+a;

k:=k+1;

a:=k*k;

end;