Program gt;
var a,b:array[1..100]of integer;
j,i,h:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 10 do
begin
h:=0;
for j:=1 to 10 do
begin
if(a[i]=a[j])then h:=h+1;
end;
b[i]:=h;
end;
for i:=1 to 10 do
begin
if(b[i]>1)then begin
for j:=1 to b[i] do
begin
write(a[j],' ');
endl
end;
end.
a, b = map(int, input().split())
answer = []
for i in range(a, b):
num = str(i)
length = len(num)
sum = 0
for y in num:
sum += int(y)**length
if sum == int(i):
answer.append(str(i))
if len(answer) == 0:
answer.append('-1')
print(' '.join(answer))
Не разшифровается а,Расшифровавается
Ответ:Монитор
Вместо 3,45 нужно написать 3.45 (точка должна быть, а не запятая). И ещё у вас скобок многовато. Это не ошибка, просто лишние скобки загромождают запись.
Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
<span>end.</span>