Написать программу в паскале: 1.дано целое число. вычислить, если возможно, натуральный логарифм этого числа и вывести его на экран. в противном случае вывести сообщение об ошибке.

152

198

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

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

egyrt

Информатика

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

Логарифм существует только для положительных чисел. поэтому напишем такую программу: var x: integer; begin writeln('введите число'); readln(x); if x< =0 then writeln('логарифм этого числа не существует') else write('ln=',ln(x)) end.

werwedsgfdg

Информатика

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

Var i,z,min,max: integer; a: array [1..10] of integer; begin randomize; z: =0; min: =16; max: =-1; for i: =1 to 10 do begin a[i]: =random(15)+1; z: =z+a[i]; if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; for i: =1 to 10 do write(a[i], ' '); writeln(); writeln('минимальное значение ',min,' максимальное значение ',max,' сумма ',z); end.