Var x,y,z:integer;
procedure p(var a,b,c:integer);
var t:integer;
begin
if a>b then
begin t:=a; a:=b; b:=t; end;
if b>c then
begin t:=b; b:=c; c:=t; end;
if a>b then
begin t:=a; a:=b; b:=t; end;
end;
begin
writeln('Введите 3 числа:');
readln(x,y,z);
p(x,y,z);
writeln('x = ',x,' y = ',y,' z = ',z);
end.
Пример:
Введите 3 числа:
8 5 2
x = 2 y = 5 z = 8
1100110011 в 10сс будет 819, в 8сс будет 1463, в 16сс будет 333
<!DOCTYPE>
<html>
<head>
<meta charset=UTF-8>
<title>Таблица</title>
</head>
<body>
<table>
<tr><td></td></tr>
</table>
</body>
</html>
tr - это строка таблицы.
td - это ячейки.
1)тест1.doc
Тест.doc
2)с:\games\happy\pacman.exe
3)c:\pictures\foto\весна.jpg
4)столбец, абзац, строка
5)редактирования
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.