у меня почему то не открывается
Var a:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
writeln('a = ',a);
end.
Пример:
a = -5
a = 5
<span>300dpi = 2,54 ≈ 118 точек/см.
40*118=4720
20*118=2360
4720x2360- Размер изображения в точках.
4720*2360=11139200
</span><span>11139200*8= 89113600 бит.</span>
S=input('число: ');
<span>k=0;
</span><span>for i in range(0,len(s)):
</span><span> for j in range(i+1,len(s)):
</span><span> if (s[i]==s[j]): k+=1;
</span><span>if (k>0): print('Да');
</span><span>else: print('Нет');
</span>число: 3265874
<span>Нет
</span>число: 1024523
<span>Да
</span>