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.

Question

Информатика

Касиния

26 октября, 22:55

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.

+2

Ответы (1)

Знаете ответ?

Полюша · Answer 1

1)

var

n: integer;

y, x: real;

begin

readln (x, n) ;

y : = 1;

while n > 0 do

begin

y : = y * x;

n : = n - 1;

end;

writeln (y) ;

end.

2)

var

a, b, c, t, i: integer;

begin

readln (a, b, c) ;

Writeln (0:2, ': a=', a, ' b=', b, ' c=', c) ;

for i : = 1 to 10 do

begin

t : = a;

a : = b;

b : = c;

c : = t;

Writeln (i:2, ': ', a, ' ', b, ' ', c) ;

end;

end.