<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415
Var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
for var i := 1 to n do
heigth := heigth * 1.02;
writeln('Heigth = ',heigth);
end.
var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
repeat
begin
heigth := heigth * 1.02;
n := n - 1
end
until n = 0;
writeln('Heigth = ',heigth);
end.
10
первая единица показывает количество двоек, ноль показывает количество единиц.