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

vasad2005 vasad2005    1   04.10.2019 22:20    136

Ответы
dizel1747 dizel1747  09.10.2020 20:34
Program Gipotenuza;
var A,B,C: real;
begin
write ('Введите длины катетов: ');
Read (A, B);
C: =A*A+B*B;
Write ('Квадрат гипотенузы равен ',c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Dodgesantafe Dodgesantafe  09.10.2020 20:34

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика