Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
<span>End.</span>
var c, x: integer;
begin
read(c);
x := c div 100 mod 10 + 10 * (c div 1000) +
100 * (c mod 10) + 1000 * (c div 10 mod 10);
write(x)
<span>end.</span>
Я же уже отвечал тебе:D
смотри фото
Program Summa;
Uses Crt;
var n,s:integer;
begin
clrscr;
write('Вводите числа конец ввода 0: ');
s:=0;
repeat
readln(n);
s:=s+n;
until (n=0);
writeln;
writeln('Сумма чисел: ',s);
readkey;
end.
233 - 128 = 1; 105 - 64 = 1; 41 - 32 = 1; 9 - 16 = 0; 9 - 8 = 1; 1 - 4 = 0; 1 - 2 = 0; 1 - 1 = 1; 233₁₀ = 11101001₂
233:8=29 и 1, 29:8=3 и 5; 233₁₀= 351₈
233₁₀=233₁₀
233:16=14 и 9; 233₁₀=Е9₁₆