Флешка, жесткий диск, дискета, диски.
//PascalABC.NET версия 3.3.5
var ar: array[0..3] of integer;
digits: array[0..9] of integer;
out: array[1..4, 1..7]of integer;
begin
for var i := 0 to 9 do
digits[i] := 0;
var sum := 0;
for var i := 1 to 2 do
begin
out[i][1] := 1053;
out[i][2] := 1077;
out[i][3] := 1074;
out[i][4] := 1077;
out[i][5] := 1088;
out[i][6] := 1085;
out[i][7] := 1086;
end;
out[4][1] := 1053;
out[4][2] := 1077;
out[4][3] := 1074;
out[4][4] := 1077;
out[4][5] := 1088;
out[4][6] := 1085;
out[4][7] := 1086;
out[3][1] := 1042;
out[3][2] := 1077;
out[3][3] := 1088;
out[3][4] := 1085;
out[3][5] := 1086;
out[3][6] := 160;
out[3][7] := 160;
var num := readinteger('Введите четырехзначное число:');
ar[3] := num mod 10;
ar[2] := num div 10 mod 10;
ar[1] := num div 100 mod 10;
ar[0] := num div 1000;
for var i := 0 to 3 do
digits[ar[i]] += 1;
for var i := 0 to 9 do
try
sum += digits[i] div digits[i];
except
on System.DivideByZeroException do
end;
for var i := 1 to 7 do
write(chr(out[sum][i]));
end.
1100111+1010111=2110222
Надеюсь что помогла если да то поставь ( like ) Please
Наверное, во второй и третьей частях задания надо перевести числа в другие системы счисления. Что делать в первой части, я не очень поняла (похоже, надо упростить выражение; в общем, я пыталась).
1. не (A * B) + (B * C) = (не A + не B) + (B * C) = (не А + не В + В) * (не А + не В + С) = (не А + В) * (не А + не В + С)
2. 264 в 10-ной = 100001000 в 2-ной = 410 в 8-ной = 108 в 16-ной
3. 10100101 в 2-ной = 165 в 10-ной = 245 в 8-ной = А5 в 16-ной
3157 в 8-ной = 1647 в 10-ной = 11001101111 в 2-ной = 66F в 16-ной
А64 в 16-ной = 2660 в 10-ной = 101001100100 в 2-ной = 5144 в 8-ной
Меньше 4-х тут ничего нету. Обращаем первое: x >= 7. Т. е. это 7 и 8.
