// PascalABC.NET 3.0, сборка 1088 begin var n:=ReadInteger('Введите число n: '); Writeln('Сумма квадратов чисел от 1 до ',n-1,' равна ', Range(1,n-1).Select(x->x*x).Sum) end.
Тестовое решение: Введите число n: 40 Сумма квадратов чисел от 1 до 39 равна 20540
Процессор — это «мозг» компьютера. Процессором называется устройство обрабатывать программный код и определяющее основные функции компьютера по обработке информации. Конструктивно процессоры могут выполниться как в виде одной большой монокристальной интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат и устройств. Чаще всего процессор представлен в виде чипа, расположенного на материнской плате. На самом чипе написана его марка, его тактовая частота (число возможных операций, которые он может выполнить в единицу времени) и изготовитель.
В настоящее время микропроцессоры и процессоры вмещают в себе миллионы транзисторов и других элементов электронной логики и представляют сложнейшие высокотехнологичные электронные устройства. Персональный компьютер содержит в своем составе довольно много различных процессоров. Они входят в состав систем ввода/вывода контроллеров устройств. Каждое устройство, будь то видеокарта, системная шина или еще что-либо, обслужизается своим собственным процессором или процессорами. Однако архитектуру и конструктивное исполнение персонального компьютера определяет процессор или процессоры, контролирующие и обслуживающие системную шину и оперативную память, а также, что более важно, выполняющие объектный код программ. Такие процессоры принято называть центральными или главными процессорами (Central Point Unit — CPU).
Program n1; function isprost(x: integer): boolean; var i: integer; begin if x<2 then isprost:=false else begin isprost:=true; for i := 2 to round(sqrt(x)) do if x mod i = 0 then isprost:=false; end; end; var a,b,i,sum: integer; p: real; begin writeln('введите границы отрезка [a;b] (предполагается, что числа натуральные)'); write('a='); readln(a); write('b='); readln(b); p:=1; sum:=0; if(a<=0) or (b<=0) then write('ошибка, числа не натуральные') else begin writeln('простые числа на отрезке [',a,';',b,']'); for i:=a to b do if isprost(i) then begin p:=p*i; sum:=sum+i; write(i,' '); end; writeln; writeln('их сумма: ',sum); writeln('их произведение: ',p); end; end.
begin
var n:=ReadInteger('Введите число n: ');
Writeln('Сумма квадратов чисел от 1 до ',n-1,' равна ',
Range(1,n-1).Select(x->x*x).Sum)
end.
Тестовое решение:
Введите число n: 40
Сумма квадратов чисел от 1 до 39 равна 20540