Расположите строки так, чтобы получилась программа Gipotenuza, насчитывающая по двум...

Question

Расположите строки так, чтобы получилась программа 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

Answer 1

Program Gipotenuza;
var A,B,C: real;
begin
write ('Введите длины катетов: ');
Read (A, B);
C: =A*A+B*B;
Write ('Квадрат гипотенузы равен ',c);
end.

Answer 2

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.