var a: real;
begin
writeln ('введите число которое нужно возвести в квадрат');
readln (a);
write(a,'^2=');
a:=a*a;
write(a);
end.
Поделитесь своими знаниями, ответьте на вопрос:
‼️ Напишите программу для вычисления квадрата числа на языке Паскаль
var a: real;
begin
writeln ('введите число которое нужно возвести в квадрат');
readln (a);
write(a,'^2=');
a:=a*a;
write(a);
end.