1.Основание
2.Естественная
3.Разновидностей
4.Искусственная
INPUT "a=", a
INPUT "b=", b
PRINT "s="; a ^ 2 - b ^ 2
END
<em><u>Тестовое решение:</u></em>
Y:\qbasic>QBASIC.EXE
a=10
b=8.5
s= 27.75
Чтобы продолжить, нажмите любую клавишу
Ответ:
<h3>а)
<em>программа написана на делфи</em> </h3>
на форме создаем Edit1(куда вводится значение а), Edit2(куда вводится значение b) Label1(выводится результат) и кнопку(Button1).
var a,b,c:Real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=power(a+b,2)*2*(power(a,2))*b;
Label1.Caption:=IntToStr(C);
end;
end.
б)на форме создаем как и в первом!!
var x,y,z:Real;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
z:=Abs(sqr(x-2))+x*sqrt(y);
Label1.Caption:=IntToStr(Z);
end;
end.
<u>НЕ</u><u> </u><u>ЗАБУДЬТЕ</u><u> </u><u>ДОБАВИТЬ</u><u> </u><u>МОДУЛЬ</u><u> </u><u>math</u><u> </u><u> </u><u>,</u><u> </u><u>иначе</u><u> </u><u>будет</u><u> </u><u>выдавать</u><u> </u><u>ошибку</u><u>.</u><u>.</u><u>.</u>
Program ex;
var k,h,m: integer;
begin
write('Введите k: ');
readln(k);
h:=k div 3600;
m:=(k - h)div 60;
write('It is ',h,' hours ',m,' minutes');
end.
Странная задача. Вариантов 63 штуки, при оптимальной стратегии он победит не более чем за
ходов. На каждом шаге получает 6 бит информации, всего получит не более 36 бит.