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.