ПЕРЕВЕДИТЕ В program zz1;

var v, s, k, a:real;// задаем переменные действительного типа

begin

write(' введите заданное действительное число a '); // вводим число с клавиатуры

read(a);

k:=a * a; // первая операция возведения в квадрат

s:=k * k; // вторая операция возведения в квадрат

v:=s * s; // третья операция возведения в квадрат

write(v:7:3); // выводим ответ

end.
k:=a * a; // первая операция возведения в квадрат

s:=k * k; // вторая операция возведения в квадрат

v:=s * s; // третья операция возведения в квадрат

write(v:7:3); // выводим ответ

Данил67854    3   05.10.2021 13:39    1