|
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.
|
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);
|
|
|
|
a:=a+1
end; нет
end.
да да нет 3)
Program A3;
Var Nomer,N:string;
Begin Nomer:='Casio';
Write('Casio=');Readln(N);
|
|
Then Write(Совпал')
Else Write('Несовпал');
End. 4)
program a4;
|
|
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; просмотров: 22 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Мамин-Сибиряк русского писателя Д.Н. Мамина-Сибиряка «Золото» (1892) о жизни золотоискателей Урала в пореформенный период 22 страница | | | Қазақстан Республикасы Республика казахстан |