Var
a, b:integer; //числа типа integer, т.е. целые числа
Begin
write('Введите число a: ');
read(a); //читаем значение а
write('Введите число b: ');
read(b); //читаем значение b
if(a>b) then writeln('>'); //если a>b тогда пишем '>'
if(a<b) then writeln('<'); //если a<b тогда пишем '<'
if(a=b) then writeln('='); //если a=b тогда пишем '='
end.
Лалалаллалалааллалалалааллааллала
А 000
Б 001
В 010
Г 011
Д 100
И так получаем ДГБАВ = 100 011 001 000 010
Переводим в 8 систему получаем 43102
Переводим в 16 систему получаем 4642
Ответ: 43102 в 8 и 4642 в 16
//Блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
a,i,n,max,maxi:integer;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
if abs(a)>max then
begin;
max:=abs(a);
maxi:=i;
end;
end;
write('Максимальный по модулю элемент был введен ',maxi,'-м');
<span>end.
</span>
Тут простая арифметика:
1. 5 Кбайт = 5*1024= 5120 байт
2. Разделим получишься число на размер кластера. Получим 10.
Ответ: А