Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.
А в чем проблема собственно?)
===== PascalABC.NET =====
begin
ReadlnString.Select(c -> 2 * c).Println('')
end.
Задача 1.1. Находим количество точек (пикселей) в кадре 640×480 = 3072002. Находим размер палитры 250×1024×8/307200 = 6 бит (отбрасываем дробную часть после деления)3. Количество цветов в палитре не может превышать 2⁶ = 64
Пояснение: 250 Кбайт = 250×1024 байт = 250×1024×8 бит.
Задача 2.1. Находим объем исходной палитры256 = 2⁸, поэтому объем составит 8 бит2. Находим объем новой палитры2=2¹, поэтому объем составит 1 бит.3. Находим, во сколько раз уменьшится объем файла8/1=8 - в восемь раз.4. Если первоначальный объем был Х, то новый станет Х/8. Уменьшение объема составит X-X/8 = 7X/8 и это равно 7 Кбайт.Тогда 7Х=7*8 Кбайт, откуда Х=8 Кбайт