Question

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

Answer 1

program foo;

uses Crt;

var

 a, s: real;

begin

 ClrScr;

 write('Сторона квадрата: ');

 read(a);

 s := Sqr(a);

 Writeln('Его площадь: ', s:0:2);

 ReadKey;

end.

Answer 2

Вот пример программы на языке Turbo Pascal для вычисления площади квадрата:

pascalCopy code
program SquareArea;

var
  a, s: real;

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

  s := a * a;

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

В этой программе пользователю будет предложено ввести длину стороны квадрата. Затем программа вычислит площадь квадрата, умножив длину стороны на саму себя (a * a). Результат будет выведен на экран с двумя знаками после запятой.

Обратите внимание, что Turbo Pascal является устаревшим языком программирования, и его использование в современных системах может быть затруднительным. Рекомендуется использовать более современные языки, такие как PascalABC.NET или Free Pascal, для написания программ.