Составить программу нахождения y=(5x+0.36)/(0.77+x^2), где переменная x=21.17

123

422

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

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

aidaadilbekova

Информатика

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

конкретный вариант: uses crt; var x: real; begin x: =21.17; writeln((5*x+0.36)/(0.77+sqr(x)): 3: 3); end. более универсальный: uses crt; var x: real; function y(a: real): real; begin *x+0.36)/(0.77+sqr(: 3: 3); end; begin read(x); y(x); end.

kravchenkoev

Информатика

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

Var s: longint; n: array[1..5] of integer; c, i: integer; begin n[1] : = 1000; n[2] : = 500; n[3] : = 100; n[4] : = 50; n[5] : = 10; write('введите сумму, кратную 10: '); readln(s); if (s mod 10) < > 0 then s : = 10 * (s div 10); i : = 1; while s > 0 do begin c : = s div n[i]; if c > 0 then begin write(n[i], 'x', c, ' '); s : = s mod n[i] end; i : = i + 1 end end. тестовое решение: введите сумму, кратную 10: 52380 1000x52 100x3 50x1 10x3