program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче
1) 0
2) 1
3) сигнал
4) одного байта
мне кажется, что так
А) 514=5*7^2+1*7^1+4*7^0=256
б) 0.017=0*8^0 + 0*8^-1 + 1*8^-2 + 7*8^-3=0.029296875
в) Немного не ясно что надо в сделать а вообще советую скачать конвртация чисел на андроид там все есть с решением
В восьмеричной системе счисления
1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.