<span>110000=48
1100=12
001=1
__
31=11111
127=1111111
</span>
а) uses crt;
var c,d:integer;
s:real;
begin
write('Введите число с: ');
readln(c);
write('Введите число d: ');
readln(d);
s:=(power(c,3)+power(d,3))/2;
writeln('Полусумма кубов равна ',s:5:3);
end.
б) uses crt;
var a,x1,x2,x3,x4,s:integer;
begin
write('Введите четырёхзначное число: ');
readln(a);
x1:=a div 1000;
x2:= a-1000*x1;
x2:=x2 div 100;
x3:=a-1000*x1-100*x2;
x3:=x3 div 10;
x4:=a-1000*x1-100*x2-10*x3;
s:=x1*x2*x3*x4;
writeln('Произведение всех цифр в числе ',a,' равно ',s);
end.
Ответ:
Объяснение:
Для решения задач необходимо все заданные числа перевести в одну систему счисления. В нашем случае все числа запишем в десятичной системе счисления.
Задача 1
1001001₂ = 73₁₀
324₈ = 212₁₀
7В₁₆ = 123₁₀
73-212+123 = -16
Задача 2
4Е₁₆ = 48₁₀
150₈ = 104₁₀
В интервале будет расположено
104-48+1 = 57 чисел
Задача 3
30₁₆ = 48₁₀
65₈ = 53₁₀
110011₂ = 51₁₀
Наименьшее число 48
Просто введи код в язык программирования Poscal - тебе и выдаст ответ.
Ну в данном случае S=31.
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
//Для теста заполним массив n * m сл.числами и
//определяем количество нечетных
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
if a[i,j] mod 2<>0 then k:=k+1;
end;
writeln;
end;
writeln('Нечетных в массиве: ',k);
