<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (fact,eps,s,x):=(1.0,0.001,0.0,1);
while true do begin
fact:=fact*x;
var a:=Power(2/x,x)*fact;
if Abs(a)>eps then begin x+=1; s+=a end
else Break
end;
Writeln('S = ',s:0:3)
end.
<u>Результат</u>
S = 12.946
Размер файла равен: 64000*16=<span>1024000бит.
Чтобы перевести в килобайты нужно разделить на 8000, то есть
Размер файла=</span>1024000бит/8000=128килобайт
Uses crt;
var
n, sum:integer;
begin
n := 100;
while n < 1000 do
begin
sum += n;
n += 4;
end;
writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum);
end.
Только мышь относится к устройствам ВВОДА информации.
Принтер и Монитор это устройства ВЫвода.
Видеокарта вообще обработки информации