Question

Составить алгоритм и написать решение задачи на Паскале: Сгенерировано целое число в диапазоне от 20 до 30. Найти диагональ квадрата с данной стороной.

Answer 1

var a:integer;
x:real;
begin
a:=random(20,30);
x:=sqrt(sqr(a)+sqr(a));
writeln('сторона= ',a);
writeln('диагональ= ',x);
end.