Паскаль. дано действительное число k вида nnn.ddd ( по 3 цифровых разряда в дробной и целой частях). поменяйте местами дробную и целую часть числа и выведете полученное новое значение. паскаль.

291

311

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

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

Atimofeeva876

Информатика

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

Var a, b: real; ip, fp: integer; begin write('введите число в формате nnn.nnn -> '); readln(a); ip : = trunc(a); fp : = trunc(1000 * (a - ip)); b : = fp + ip / 1000; writeln('результат: ', b) end. тестовое решение: введите число в формате nnn.nnn -> 135.782 результат: 782.135

аля668

Информатика

4,7(28 оценок)

// pascalabc.net 3.0, сборка 1088 const nn=100; type ta=array[1..nn] of integer; procedure maxelem(n: integer; var m: ta; var mx: integer); var i: integer; begin mx: =m[1]; for i: =2 to n do if m[i]> mx then mx: =m[i] end; var a: ta; i,n,amax: integer; begin write('введите количество элементов в массиве: '); read(n); randomize; writeln('элементы массива'); for i : = 1 to n do begin a[i]: =random(101)-50; write(a[i],' ') end; writeln; maxelem(n,a,amax); writeln('максимальный элемент равен ',amax); end. тестовое решение: введите количество элементов в массиве: 15 элементы массива -8 41 7 -40 -1 1 -18 5 -28 26 50 13 -42 39 -43 максимальный элемент равен 50