Объяснение:
program XandY;
const
rndlim=50;
var
x, y : integer;
begin
x:=random(rndlim);
y:=random(rndlim);
Writeln('x=',x,' y=', y);
Writeln('x+y = ',x+y);
Writeln('x-y = ',x-y);
Writeln('x*y = ',x*y);
Writeln('x^2 + y^2 = ',sqr(x)+sqr(y));
end.
Запуск:
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
16 lines compiled, 0.2 sec
x=27 y=29
x+y = 56
x-y = -2
x*y = 783
x^2 + y^2 = 1570
Объяснение:
program XandY;
const
rndlim=50;
var
x, y : integer;
begin
x:=random(rndlim);
y:=random(rndlim);
Writeln('x=',x,' y=', y);
Writeln('x+y = ',x+y);
Writeln('x-y = ',x-y);
Writeln('x*y = ',x*y);
Writeln('x^2 + y^2 = ',sqr(x)+sqr(y));
end.
Запуск:
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
16 lines compiled, 0.2 sec
x=27 y=29
x+y = 56
x-y = -2
x*y = 783
x^2 + y^2 = 1570
c = "E0".to_i(16) + i
puts "%s_16 = %s_8 = %s_4 = %s_2" % [c.to_s(16),c.to_s(8),c.to_s(4),c.to_s(2)]
end
e0_16 = 340_8 = 3200_4 = 11100000_2
e1_16 = 341_8 = 3201_4 = 11100001_2
e2_16 = 342_8 = 3202_4 = 11100010_2
e3_16 = 343_8 = 3203_4 = 11100011_2
e4_16 = 344_8 = 3210_4 = 11100100_2
e5_16 = 345_8 = 3211_4 = 11100101_2
e6_16 = 346_8 = 3212_4 = 11100110_2
e7_16 = 347_8 = 3213_4 = 11100111_2
e8_16 = 350_8 = 3220_4 = 11101000_2
e9_16 = 351_8 = 3221_4 = 11101001_2
ea_16 = 352_8 = 3222_4 = 11101010_2
eb_16 = 353_8 = 3223_4 = 11101011_2
ec_16 = 354_8 = 3230_4 = 11101100_2
ed_16 = 355_8 = 3231_4 = 11101101_2
ee_16 = 356_8 = 3232_4 = 11101110_2
ef_16 = 357_8 = 3233_4 = 11101111_2