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.