Иформатика паскаль. домашнее задание Var p: array [1..10] of longint; a,b,c,d,e,k,i:longint; begin read(a); for i:=1 to 10 do bedin b:=a div 2; c:=a mod 2; p[i]:=c; a:=b; end;
В коде опечатка в строке "bedin", должно быть "begin". Исправленный код:
Var p: array [1..10] of longint; a, b, c, d, e, k, i: longint; begin read(a); for i := 1 to 10 do begin b := a div 2; c := a mod 2; p[i] := c; a := b; end; for i := 1 to 10 do write(p[i]); end.
В коде опечатка в строке "bedin", должно быть "begin". Исправленный код:
Varp: array [1..10] of longint;
a, b, c, d, e, k, i: longint;
begin
read(a);
for i := 1 to 10 do
begin
b := a div 2;
c := a mod 2;
p[i] := c;
a := b;
end;
for i := 1 to 10 do
write(p[i]);
end.