Иформатика паскаль. домашнее задание 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;
for i:=1 to 10 do
write(p[i]);
end.
что не так
Иформатика паскаль. домашнее задание 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;
for i:=1 to 10 do
write(p[i]);
end.
что не так
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;
for i:=1 to 10 do
write(p[i]);
end.
что не так
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
В коде опечатка в строке "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.