A) 100010
б) 352
в) 4F4
а) 2653
б) 22651
в) 22D3
г) 4B52
а) 10101100110011
б) 10100101000001
в) 1001001011111111000100000
г) 1000010101010110110000
Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка
13*1024=13 312 сначала переводим килобайты, а потом
13 312*1024=13 631 488 в байты, затем уже
13 631 488*8=109 051 904 в биты.
14 428/1024=14 килобайт
14/1024~0,013 мегабайт.
2048/8=256 байт
256/1024=0.25 килобайт
866*1024=886 784 байта
136*1024=139 264 килобайта
вот и все)
Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if a
program parampampam;
uses crt;
var
i: integer; {счетчик}
s: integer;
begin
clrscr; {очистка экрана}
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S');
writeln ('Введите число S, от 0 до 18: ');
{ввод числа S с проверкой на корректность}
repeat
readln (s);
if (s>18) or (s<0) then
writeln ('Неверный ввод. Повторите')
until (s<=18) and (s>=0);
{вывод нужных чисел на экран (цикл с предусловием)}
for i := 1 to 99 do
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}
write (i, ' ');
repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}
end.
