while a<10 do begin if a>=0then

1)

program a1;

var x,a,y:real;

begin write('a=');

read(a);

write('x=');

read(x);

y:=sin(x)+cos(x)-a;

write('y=',y); end.

y=sin(x)+cos(x)-a

2)

program a2;

var a,c,h,y:real;

begin a:=-10;

while a<10 do begin if a>=0then

y:=cos(a)-(c)else

y:=sin(a);

y=sin(a)

a=-10

y=cos(a)-(c)

a=a+1

writeln('a=',a,' y=',y);

a:=a+1

end; нет

end.

да да нет 3)

Program A3;

Var Nomer,N:string;

Begin Nomer:='Casio';

Write('Casio=');Readln(N);

Не совпало

Nomer=20

IF N= Nomer

Then Write(Совпал')

Else Write('Несовпал');

End. 4)

program a4;

p=1

P=p*a(i)

var i:integer;

a:array[1..10]of real;

p:real;

begin p:=1;

for i:=1 to 3 do begin;

write('a(',i,')=');

read (a[i]); if a[i]=0 then p:=p+1;

writeln ('p=',p);

end;

end.

да

да

Дата добавления: 2015-10-21