// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
1)
begin
var n:=ReadInteger('Введите n-> ');
var s:=0;
for var i:=1 to n do
s+=i*i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 14
2)
begin
var n:=ReadInteger('Введите n-> ');
var s:=1;
for var i:=1 to n do
s*=i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 6
1,25Кбайт=1280байт
1280/120 байт/с - скорость передачи
250/(1280/120)= 23,4375с - время передачи 250 байт информации
Общее количество символов для записи идентификатора = 29+9=38
Для кодирования одного символа необходимо log(2)38 ≈ 6 бит.
Для записи одного идентификатора требуется 6*6 бит = 36 бит = 36/8 байт ≈ 5 байт
Для хранения 180 <span>идентификаторов</span> потребуется 5*180 байт = 900 байт = 900/1024 Кбайт ≈ 0,9 Кбайт
Program zadacha;
var a,x:integer;
begin
read(x);
a:=4*4*x;
write(a);
end.
var
<span> a,b,c:integer;
</span><span><span> begin
</span>
read(a,b,c);
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span>
end.</span>