ответ:
современный pascalabc.net
begin
var (a, b) : = readinteger2('введите a и b: ');
if a > b then
print(a, b)
else
print(b, a)
end.
старенький free pascal
var
a, b: integer;
begin
write('введите a и b: ');
readln(a, b);
if a > b then
write(a, ' ', b)
else
write(b, ' ', a)
end.
turbo pascal для современников мамонтов
program abc;
uses crt;
var
a, b: integer;
begin
clrscr;
write('введите a и b: ');
readln(a, b);
if a > b then
write(a, ' ', b)
else
write(b, ' ', a);
readkey;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Перевести 3072 байта в биты 256 бит в байт 2048 байт в килобайт 2 мегабайт в байт 12288 бит в килобайт