Если правильно понял,то вот
var
n,i,sum:integer;
begin
repeat
write ('N = ');
readln(n);
until n>0;
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln ('Summa: ',sum);
readln;
end.
Серверлік ОЖ есептеу үшін әлдеқайда көп жадты пайдаланады, сонымен қатар Веб-сервер, қосымшалар сервері және электрондық пошта сервері және кәсіпорынның ат жүйесін іске қосу үшін қажет көптеген басқа серверлер функцияларын орындай алады.
Объяснение:
Серверная ОС использует гораздо больший объем памяти для вычислений, а также может выполнять функции веб-сервера, сервера приложений и сервера электронной почты и многих других серверов, необходимых для работы ИТ-системы предприятия.
на Казахском и Русском
скорее уменьшение
Объяснение:
Зависит от того, что называть качеством, но скорее уменьшение.
Уменьшение приводит к потере информации: каждый пиксель нового изображения соответствует нескольким пикселям исходного, поэтому не может передать мелкие детали, от чего появляется размытие. В самом экстремальном случае - когда всё сжимается в один пиксель - все детали исходного изображения будут потеряны.
Увеличение приводит к тому, что в новом изображении необходимо задать цвет пикселей, которых не было на исходном рисунке. Если пользоваться наивными алгоритмами - например, просто добавлять пиксели усреднённого цвета - будет возникать размытие чётких границ, при этом градиенты будут переданы неплохо. Современные графические редакторы используют более сложные приёмы, вплоть до использования нейронных сетей для "придумывания" недостающих пикселей, поэтому качество страдает не так сильно.
СLS
a:
INPUT n
IF n<1 OR INT(n)<>n THEN PRINT "не может быть": GOTO a
FOR i=1 TO n
s=s+i
NEXT i
PRINT "Сумма"; n; "чисел равна"; s
END