Program n1;
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.
Зрительная зрение глаза
звуковая слух уши
вкусовыя всус язык
обонятельная обоняние нос
осязателная осязание кожа
Для пк - мало, да и для других девайсов - мало, приходится все время подчищать память
для пк норм - 500гб, минимум
Напишу с объяснением:
n = 3;
s = 0 + 6 = 6;
n = 4;
s = 6 + 8 = 14;
n = 5;
s = 14 + 10 = 24;
n = 6;
s = 24 + 12 = 36;
n = 7
s = 36 + 14 = 50.
5 байтов получится-----------------------------------------------------