3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10 б)y=x^15 Постараться использовать минимальное количество дополнительных переменны...
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления а) y=x¹° б)y=x¹⁵ или а) y=x^10 б)y=x^15 Постараться использовать минимальное количество дополнительных переменных. 4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Гость
Ответ(ы) на вопрос:
Гость1) var x,y1,y2:real;
begin
read(x);
y1:= exp(ln(x)*10);
y2:= exp(ln(x)*15); writeln(y1);
writeln(y2);
end. 2) procedure abc(var a,b:real);
var x:real;
begin
x:=a;
a:=b;
b:=x;
end;
var a,b,c:real;
begin
writeln('Vvedite a,b,c');
readln(a,b,c);
if a>b then abc(a,b);
if b>c then abc(b,c);
if a>b then abc(a,b);
write(a,' ',b,' ',c);
end.
Не нашли ответ?
Похожие вопросы