<em>var <имя файловой переменной>: file of <тип данных>;</em>
101110=1*2^5 + 1*2^3 + 1*2^2 + 1*2= 32+8+4+2=46
621=6*8^2 + 2*8 + 1= 384+16+1=401
64C= 6*16^2 + 4*16 +12=1536+64+12=1612
Так как я очень много играю в компьютерные игры: я хочу две очень мощные видеокарты, самый лучший процессор, много оперативной памяти, а также кучу свободного пространства на жестких дисках. Три огромных монитора формата Ultra HD, Красивую клавиатуру с подсветкой и удобную мышку. (Написал на ходу)
1.
алг
нач
цел а
ввод а
вывод div(a, 1000), 'тонн'
кон
2.
var x, i: integer;
begin
write('Введите трёхзначное число: ');
readln(x);
if ( x <100 ) OR ( x>100 ) then writeln('Число не трёхзначное!')
else
begin
i :=x mod 10; write(i)
write(x div 100);
write(x div 10 mod 10);
end;
end.
3.
Было число ав
Стало число 2ав2
Разложим его на разряды
2ав2=2*1000+а*100+в*10+2=2002+100а+10в
По условию задачи это в 32 раза больше исходного двузначного числа ав, т.е.:
32ав=2ав2 ( Число ав тоже разложим на разряды, получим 10а+в)
32(10а+в)=2002+100а+10в
32(10а+в)=2002+10(10а+в)
32(10а+в)-10(10а+в)=2002
22(10а+в)=2002
10а+в=2002:22
10а+в=91
Итак, искомое число 91
2) 101010 в десятичной=1100010101010010010 в двоичной. (мы это число постоянно делим на два до упора. остатки при делении или 1 или 0. Вот так к примеру 6/2=3 (ост0) 3/2=1(ост1) 1 на два не делится - ставим остатки с конца, получаем 1 1 0
1)число 21410 также делить на 16 до упора. остатки записывать в обратном порядке начиная с результата последнего действия, при чем двузначные остатки записывать в виде букв
А - 10
В - 11
С - 12
D - 13
E - 14
F - 15
G - 16