Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
Var a,b,c,i,n: integer;
begin
write('n = ');
readln(n);
a := 0;
write(a,' '); b := 1; write(b,' ');
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c
end;<span>end.</span>
Ответ:
<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>