Составить программу которая запрашивает длину 2-ух катетов прямоугольного треугольника и выводят гипотенузы. c=a^2+b^2 c: = sqrt(a х а + b х b) продолжите .

202

305

Посмотреть ответы 3

Ответы на вопрос:

Liya20034

Информатика

4,6(4 оценок)

Program z1; var a,b,c1,c2: real; begin writeln('введите катет a: '); readln(a); writeln('введите катет b: '); readln(b); c1: =a*a+b*b; c2: =sqrt(c1); writeln('гипотенуза в квадрате: ',c1); writeln('корень из гипотенузы: ',c2); end.

Lala0911

Информатика

4,5(25 оценок)

это на классическом паскале

program zadan10; vara,b,c: real; beginwriteln('vvedite "a"'); readln(a); writeln('vvedite "b"'); readln(b); c: =sqrt(a*a+b*b); writeln('gipatenuza =',c); readln; end.

Айринчик

Информатика

4,6(55 оценок)

Здесь смешанный язык - алгоритмический. разберем по строкам 1. алг - говорит что будет цикл (в паскале for) 2. нач - слишком очевидно, начало 3. цел i,n - значения переменных i и n целые 4. n: =0 - обнуляем n, мало ли в памяти есть какое-то значение для него 5. нц для i от 1 до 13 - начало цикла, который меняется на промежутке [1; 13] 6. n: =(n+i)+3 - действие внутри цикла, в данном случае меняем значение n 7. кц 8. вывод n - выводим на экран последнее значение n 9. кон как это выглядит на паскаль: var i, n: integer; begin n : = 0; for i: = 1 to 13 do n: =n+i+3; write('n = ',n); end. эта программа выведет на экран 130 можно посчитать вручную i=1, n = n+i+3 = 0+1+3= 4 i=2, n = n+i+3 = 4+2+3= 9 и т.д. до i = 13.