Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
1 байт = 8 бит
1 Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
1 ГБ = 1024 МБ
1 бит = 0,00012 Кбайт
1 Мбайт = 1048576 байт
1 байт = 8 битов
128 битов = 16 байт
32 байт = 256 бит
1 Кбайт = 1024 байт
1,5 Кбайт = 1536 байтов
2048 байт = 2 Кбайт
81 920 битов = 10 Кбайт
2 Мбайт = 2048 Кбайт
1,5 Мбайт = 1572864 байтов
а потом сам(а)
A) 1002
Так как двоичный код состоит только из 0 и 1,другие числа не могут быть
Ответ:
1.
var a:array [1..20] of integer;
i,m:integer;
begin
for i:=1 to 20 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
write('Массив ');
m:=a[1];
for i:=1 to 20 do
begin
write (a[i], ' ');
if a[i]<m then m:=a[i]
end;
writeln;
writeln ('Наименьший элемент ',m)
end.
2.
var a:array [1..10] of integer;
i,mi:integer;
begin
write('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(46)-20;
write (a[i], ' ')
end;
writeln;
mi:=1;
for i:=2 to 10 do
if a[i]<a[mi] then mi:=i;
writeln ('Номер наименьшего элемента ',mi)
end.
Ответ 2. Вот смотри. У тебя есть два множества, которые у меня на рисунке. Мысленно ну или на бумаге подели этот рисунок на части, в которых может быть икс и при этом, где буду меняться условия. т.е. вот тебе три части, для которых требуются разные условия. в самом низу там наискосок неаккуратно (извини) написала все возможные варианты. в первом тебе все равно, где множество а, у тебя уже есть единица в одном из слагаемых, во втором тоже неважно, там следование в любом случае будет равно единице. а вот в третьем нужно подобрать такое расположение множества а, чтобы не было операции следования в ноль из единицы, нужно из нуля в ноль. т.е. чтобы в момент нахождения в третьем отрезке, мы не находились в множестве а. из представленных вариантов расположения подходит только второй