Question

На языке паскаль напишите программу для вычисления площади квадрата (s=a^2) нужно срочно ​

Answer 1

Ответ:

Program name;

Uses crt;

Var a, b, S, P :integer;

Begin

Clrscr;

Writeln ('Даны стороны прямоугольника a и b.');

Writeln ('(1) Найти его площадь S=a*b.');

Writeln ('(2) Найти его периметр P=2*(a+b).');

Write ('Введите значение стороны а: ');

a := 0;

Readln (a);

Write ('Введите значение стороны b: ');

b := 0;

Readln (b);

S := a*b;

P := 2*(a+b);

Writeln ('(1) Площадь прямоугольника S=a*b =', S);

Writeln ('(2) Периметр прямоугольника P=2*(a+b) =', P);

Readln (S, P);

End.

Answer 2

===== PascalABC.NET =====

begin

 var a := ReadReal('Сторона квадрата:');

 Println('Его площадь:', a * a)

end.

Answer 3

Конечно, вот готовый код на языке Pascal для вычисления площади квадрата:

lessCopy code
program SquareArea;

var
  a, s: real;

begin
  writeln('Введите длину стороны квадрата: ');
  readln(a);

  s := a * a;

  writeln('Площадь квадрата равна: ', s);
  readln;
end.

Программа запрашивает у пользователя длину стороны квадрата, вычисляет площадь по формуле s = a * a, где "a" - длина стороны квадрата, и выводит результат на экран.