1. например арбуз и мяч (один размер и форма)
Подбирай по этому принципу.
1)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
2)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
repeat
i:=i+1;
read(a);
s:=s+a;
until i=n;
writeln('s = ',s);
end.
3)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Введите 5 чисел:
8 2 9 6 4
s = 29
Другой способ:
var a,i:longint;
begin
readln(a);
for i:=1 to 3 do
begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
для того, чтобы сохранить 1000 цифр, надо ⇒ i = 10 бит
тогда для записи идентификатора требуется 4*10+12 = 52 бит ≈ 7 байт
для 20 команд 7*20 = 140 байт
Символами может считаться любое обозначение величин в предметах, перечисленных в вопросе.
Несколько примеров с каждого предмета:
Математика - sin, cos, tan(тригонометрические функции), ∞(бесконечность), e(основание натуральных логарифмов), π (Число Пи).
Физика - t(время), m(масса), I(сила тока), L(длина), V(скорость), Q(кол-во теплоты).
Химия - обозначение хим. элементов, n(кол-во вещества), Ar(относительная атомная масса), Nₐ(число Авогадро).