Var i,s: integer;
<span>begin
</span><span> i:=1; s:=0;
</span><span> repeat
</span><span> s:=s+i;
</span><span> i:=i*2;
</span><span> until i>256;
</span><span> writeln('s = ',s);
</span><span>end.
второй вариант:
var s: integer;
begin
</span> s:=1 shl 9 - 1;
<span> writeln('s = ',s);
</span><span>end.
</span><span>
s = 511
</span>
Ответ:
Содержание статьи. CD (Compact Disk) – оптический диск, предназначенный для хранения цифровой информации, запись и считывание которой осуществляет лазерная установка. Распространены стандартные CD емкостью до 700 Мб. DVD – оптический диск повышенной, по сравнению с CD, емкости (может иметь объем 4,7 Гб, 8,5 Гб, 9,4 Гб, 17 Гб).
Объяснение:
Var n,a,b,c,d:integer;
begin
readln(n);
for a:=1 to n-1 do
for b:=a to n-1 do
begin
d:=a*a+b*b;
c:=1;
while c*c<d do c:=c+1;
if (d=c*c)and(c<n) then writeln(a,' ',b,' ',c);
end;
end.
Пример:
20
<span>3 4 5
5 12 13
6 8 10
8 15 17
9 12 15</span>
var
s: string;
i,n: integer;
begin
readln(s);
n:=1;
for i:=1 to length(s) do
if ((s[i]='3') or (s[i]='6') or (s[i]='9')) then
n:=n*(ord(s[i])-48);
write(n);
end.