(см. объяснение)
Объяснение:
program task;
var i: integer;
const N=5;
procedure writeOut(i: integer);
begin
if(i<N) then write(', ')
else writeln('.');
end;
begin
if(N<1) then begin writeln('N>0 и целое!'); exit; end;
writeln('ЦИКЛ FOR:');
for i:= 1 to N
do begin
write(i); writeOut(i);
end;
writeln;
writeln('ЦИКЛ WHILE:');
i:= 1;
while(i<N+1)
do begin
write(i); writeOut(i);
i:= i+1;
end;
writeln;
writeln('ЦИКЛ REPEAT:');
i:= 1;
repeat
write(i); writeOut(i);
i:= i+1;
until i=N+1;
end.
1. Перевести число в двоичную систему исчисления:
2. Записать число в прямом коде (т.е. дополняем число незначащими нулями до 8-ми разрядов)
3. Записать число в 8-разрядную сетку
в) 1021. Перевести число в двоичную систему исчисления:
2. Записать число в прямом коде (т.е. дополняем число незначащими нулями до 8-ми разрядов)
3. Записать число в 8-разрядную сетку
д) 1261. Перевести число в двоичную систему исчисления:
2. Записать число в прямом коде (т.е. дополняем число незначащими нулями до 8-ми разрядов)
3. Записать число в 8-разрядную сетку
b.б) -321. Перевести модуль числа в двоичную систему исчисления:
2. Записать число в прямом коде (т.е. дополняем число незначащими нулями до 8-ми разрядов)
3. Найти обратный код числа (побитово инвертировать)
4. Найти дополнительный код (прибавить единицу)
5. Записать число в 8-разрядную сетку
г) -1021. Перевести модуль числа в двоичную систему исчисления:
2. Записать число в прямом коде (т.е. дополняем число незначащими нулями до 8-ми разрядов)
3. Найти обратный код числа (побитово инвертировать)
4. Найти дополнительный код (прибавить единицу)
5. Записать число в 8-разрядную сетку
е) -1261. Перевести модуль числа в двоичную систему исчисления:
2. Записать число в прямом коде (т.е. дополняем число незначащими нулями до 8-ми разрядов)
3. Найти обратный код числа (побитово инвертировать)
4. Найти дополнительный код (прибавить единицу)
5. Записать число в 8-разрядную сетку
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу для решения линейного уравнения ax+b=c
var a,b,c: integer;
begin
readln(a,b,c);
write('x=',(c-b)/a);
end.