Дашборд деген не? жобасын әзірлендер​

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end. 

решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4

квадрат вписан в круг при условии что r*2(диаметр)> диагонали квадрата 

на qbasic

? "введите 2 числа - радиус круга и сторону квадрата соответсвенно"

input a; b

c=a*2   диаметр

g=sqr(a*a+a*a) диагональ  

if c> g then 1 else 2

1 ? "квадрат вписан в круг"

goto 3

2 ? "квадрат не вписан в круг"

3 end

1) чтобы получить 4 литра нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра.

2)  чтобы получить 1 литр нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра. теперь нужно из девятилитрового ведра, в котором сейчас 4 литра, перелить воду в трёхлитровое ведро. т. к. в трёхлитровое ведро вместится только 3 литра, то в девятилитровом будет 1литр. в пятилитровом так и останется 5 литров.