Begin var a, b, c: single; readln(a, b, c); writeln( max(a, max(b, c)) - min(a, min(b, ; end.позязя, begin var a, b, c, d, e: single; readln(a, b, c); if (a < b) then d : = a else d : = b; if (c < d) then d : = c; if (a > b) then e : = a else e : = b; if (c > e) then e : = c; writeln(e - d); end.
punctvydachi
25.11.2022
Непозиционная система счисления - это система счисления, в которой значение цифры не изменяется в зависимости от ее расположения.примером непозиционной системы счисления служит римская система, в которой вместо цифр используются латинские буквы.например: число 242 можно записать ссxlii (т.е. 100+100+(50-10) +1+1).число 96 запишем xcvi=(-10+100)+(5+1). значение 1=i в данном случае не изменяется от ее местоположения.cоответствие римской и арабской системы записи i v x l c d m1 5 10 50 100 500 1000
vardartem876
25.11.2022
// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('n='); var a: =arrrandom(n,-50,50); print('a: '); a.println; var b: =arrrandom(n,-50,50); print('b: '); b.println; var c: =a.concat(b).toarray; print('c: '); c.println; end. пример n= 10 a: -7 25 -44 -28 40 -19 46 -15 9 2 b: -13 37 -38 -16 -4 35 23 -19 7 -32 c: -7 25 -44 -28 40 -19 46 -15 9 2 -13 37 -38 -16 -4 35 23 -19 7 -32
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Надо написать программу в паскале. : введите три трёхзначных числа. найти разность между наибольшим м наименьшим. заранее !