var
r, x, y :integer;
begin
randomize;
writeln('Введите координаты');
read(x);
read(y);
r := random(10)+1;
writeln('Радиус равен ', r);
if (x*x+y*y <= r*r) then
writeln('Точка принадлежит окружности')
else
writeln('Точка не принадлежит окружности');
end.
1. а) 666
2-чная: 1010011010
8-ричная: 1232
16-ричная: 29A
б) 305
2-чная: 100110001
8-ричная: 461
16-ричная: 131
в) 153,25
2-чная: 10011001
8-ричная: 231
16-ричная: 99
г) 162,25
2-чная: 10100010
8-ричная: 242
16-ричная: А2
д) 248,46
2-чная: 11111000
8-ричная: 370
16-ричная: F8
е) 306
2-чная: 100110010
8-ричная: 462
16-ричная: 132
ж) 467
2-чная: 111010011
8-ричная: 723
16-ричная:1D3
з) 218,5
2-чная: 11011010
8-ричная: 332
16-ричная: DA
и) 667,25
2-чная: 1010011011
8-ричная: 1233
16-ричная: 29B
к) 318,87
2-чная:100111110
8-ричная: 476
16-ричная: 13E
2. а) 827; б) 1031; в) 181,5; г) 262.65625; д) 441; е) 1046; ж) 849; з) 284; и) 881.421875;
к) 408.890625; л) 47567; м) 87404.
3. а) 11000110; б) 11000001011; в) 1100000101.111; г) 11000100101; д) 111011110; е) 10100101111.
4. а) 10001111011100; б) 100110001010; в) 1011100110100; г) 10001100000100; д) 110110000000;
е) 1000111100010.
29.
пятеричная сс состоит из 5 чисел, начиная с 0, т.е. это 0 1 2 3 4
30.
Ваня живет на одном из 8 этажей, значит n=8=2³
=> 3 бит
64=2^6; i=6 бит
75*6=450 бит=56,25 байт
Procedure sumSameNumbers();
var
a, b, sum: real;
begin
repeat
write('Введите a и b: '); readln(a, b);
if a = b then
begin
sum := a + b;
writeln('Сумма = ', sum)
end
else
writeln('Числа не одинаковые');
until a = b;
end;
begin
sumSameNumbers();
end.