Можно уточнить именно плюсы и минусы чего? Суперкомпьютера или ПК? Или того и другого
program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
П.5 - в целом правильно. Можно было, правда, перевести в мегабайты, их сразу поделить на 8, а потом дальше уже переводить в килобайты и байты (числа промежуточные были б чуть поменьше, но это мелочь).
Придраться могут к первой строчке решения - суть в ней правильная, а вот запись математически не совсем корректна.
<span>Формально 36 Гб * 1024 = 36 Тб, а не то что записано у вас. Я бы подправил так:
36 Гб = (36 * 1024) Мб = </span>36864 Мб = (36864 * 1024) кБ = и т. д.
п.4 - всё правильно. Разве что первую строку подробней расписать (чтоб у проверяющего не осталось сомнений, что вы понимаете как получилось это число):
4 Мб = (4 * 1024 * 1024) байт = <span>4194304 байт
п.2 - тут есть вопрос. Вы исходите из того что книга на русском языке, без буквы ё, например, без пробелов и без знаков препинания (N=32).
Дальнейшее решение (исходя из этого предположения) - правильное до момента пересчета в килобайты, мегабайты, гигабайты. В килобайтах вы округлили (на мой взгляд применение округления здесь правильно, но есть повод придраться), а дальше неправильно посчитали 274 / 1024 = 0,267, а не 0,7.
"Историческая" мелочь насчет округления: вы округлили по правилам арифметики - до ближайшего целого. Исторически (из-за чего собственно в килобайте 1024 байта, а не 1000) чтобы не делать честное деление делали сдвиг на 10 разрядов вправо (аналог деления на 2^10, то есть на 1024). При сдвиге младшая часть "пропадает", поэтому округление получается всегда в меньшую сторону, а не честное арифметическое.
Однако, из условия задачи никак не следует что типов символов всего 32 (алфавит вообще не оговорен, а значит для решения не хватает данных). В общем ход решения у вас правильный, а вот к начальному предположению можно придраться при желании.</span>
uses crt;
var i,n,m:integer;
begin
read(n);
m:=n;
i:=1;
while i<=m do
begin
if n mod i=0 then
begin
write(i,' ');
m:=(n div i);
end;
i:=i+1;
end;
write(n);
<span>end.</span>
Во вложении - рабочая книга Excel-2003, необходимая программа находится в проекте для первого листе (в коде кнопки).