program zadacha1;
var x, y, k, h:Real;
Begin
write('x=');Read(x);
h:=exp(3*ln(x));
k:=exp(5*ln(x));
y:=x-h/3+k/5;
Writeln('y=',y);
end.
Program zadacha2;
var x, y, h:Real;
Begin
write('x=');Read(x);
Write('y=');Read(x);
h:=sqr(1/2)-cos(x)+sin(2*x*y);
writeln('h=',h);
end.
Program zadacha4;
var x, y, h:real;
begin
write('x=');Read(x);
h:=abs(exp(4*ln(x))-exp(5*ln(x)));
y:=x- 10*sin(x)+h;
write ('y=',y);
end.
1.
<span>a := 100
b := 240
a := 3*a+20 = 3 * 100 + 20 = 320
</span>a := 320
b := 240<span>
b := a*2–b = 320 * 2 - 240 = 400
Ответ: 400
2.
</span><span>f := 100
e := 25
f := 2*f+50 = 2 * 100 + 50 = 250
</span>f := 250
e := 25<span>
e := f–150–e*2 = 250 - 150 - 25 * 2 = 50
Ответ: 50
3.
</span><span>f := 21
e := 10
f := 5*f+5 = 5 * 21 + 5 = 110
</span>f := 110
e := 10<span>
e := f–10–e*5 = 110 - 10 - 10 * 5 = 50
Ответ: 50
4.
</span><span>a := 3
b := 7
b := 9+a*b = 9 + 3 * 7 = 30
</span>a := 3
b := 30<span>
a := b/5*a = 30 / 5 * 3 = 18
Ответ: 18</span>
Const Glasnie=['E', 'Y', 'U', 'I', 'O', 'A','e', 'y', 'u', 'i', 'o', 'a'];var i,k: integer; s: string;begin ReadLn(s); k:=0; for i:=1 to length(S) do if s[i] in Glasnie then k:=k+1; writeLn('Количество гласных - ',k)end.
Var
d: integer;
repeat
readln(d);
case d of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
else writeln('Конец работы!')
end;
until (d<1 or d>7)
end.