Широкополосная сеть стала доступна (2000)
Int s = 0;
for(i=5; i<=30; i++){
s+=i;
}
print(s)
С=12; A=10;
12 * 16(четвёртой степени) + 2 * 16(третьей степени) + 10 * 16 (в квадрате) + 1 * 16(первой степени) + 6 * 16(нулевой степени)
12 * 65536 + 4096 *2 + 256 * 10 + 16 + 6 = 786432 + 8192 + 2560 +22 = 797206
Ответ : 797206
Var a,b,c:ineteger;
d:real;
begin
c:=a*b;
d:=a/b;
writeln(c);
writeln(d)
end.
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>