10101100
+ 1001111
--------------
11111011
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
Напиши немного понятней....как я поняла, тебе надо 256 перевести в восьмеричную, то получится 400,
Дальше смогу если понятней напишешь... Прости
Или радиоканал, или спутниковый. Т.е. тот самый, через который осуществляется повседневное общение персонала станции с материком.
Program mass;
uses
crt;
var
a: array [1..10] of integer;
i: integer;
begin
randomize;
writeln('Исходдный массив: ');
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(' ', a[i], ' ');
end;
Writeln;
writeln('После замены отрицательных чисел на 0:');
for i := 1 to 10 do
begin
if a[i] < 0 then a[i] := 0;
write(' ', a[i], ' ');
end;
writeln;
end.
ща переделаю не увидел что ті изменила задание