Составить алгоритм и написать решение задачи на Паскале: Сгенерировано целое число в диапазоне от 20 до 30. Найти диагональ квадрата с данной стороной.
Answers & Comments
maya28dv
Var a:integer; x:real; begin a:=random(20,30); x:=sqrt(sqr(a)+sqr(a)); writeln('сторона= ',a); writeln('диагональ= ',x); end.
Answers & Comments
x:real;
begin
a:=random(20,30);
x:=sqrt(sqr(a)+sqr(a));
writeln('сторона= ',a);
writeln('диагональ= ',x);
end.