Question

Написать программу которая определяет сторону и площадь квадрата если известна диагональ . На паскале !

Answer 1

Program square;
var d, a, S: real;
begin
writeln('Введите длину диагонали:');
readln(d);
a:= d*sqrt(2)/2;
S:= sqr(a);
writeln('Сторона = ', a:0:3, '. Площадь = ', S:0:3, '.');
end.

Answer 2

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

pascalCopy code
program SquareFromDiagonal;
var
  diagonal, side, area: real;
begin
  writeln('Введите длину диагонали квадрата: ');
  readln(diagonal);

  // Используем теорему Пифагора для нахождения стороны квадрата
  side := sqrt(0.5 * sqr(diagonal));

  // Вычисляем площадь квадрата
  area := sqr(side);

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

Просто скопируйте этот код в свою среду Pascal и запустите программу. Она запросит вас ввести длину диагонали квадрата и затем выведет сторону и площадь квадрата.