Расположите строки так, чтобы получилась программа gipotenuza, насчитывающая по двум введённым с клавиатуры катетам квадрат гипотенузы прямоугольного треугольника. 1. program gipotenuza; 2. c: =a*a+b*b; 3. write ('квадрат гипотенузы равен ',c) 4 end. 5 read (a, b) 6 write ('введите длины катетов: '); 7 var 8 begin
var A,B,C: real;
begin
write ('Введите длины катетов: ');
Read (A, B);
C: =A*A+B*B;
Write ('Квадрат гипотенузы равен ',c);
end.
1. Program Gipotenuza;
7. var а, b, c: integer;
8. begin
6. write ('Введите длины катетов: ');
5. Read (A, B);
2. C: =A*A+B*B;
3. Write ('Квадрат гипотенузы равен ',c);
4. End.