Program xxx;
var rost,ves,resultat:real;
begin
Writeln('Добро пожаловать в калькулятор веса.');
Write('Введите ваш вес:'); read(ves);
Write('Введите ваш рост:');
read(rost);resultat:=rost-100;
Write('Итог: Ваш вес: ' ,ves);
Writeln('Ваш рост: ' ,rost);
Write('Ваш нормальный вес(+-5):' ,resultat);
<span>end.</span>
N = P*r, r = log2(I)
N - объем памяти
P - пиксели
r - разрешение
I - количество цветов
<span>все переменные в битах
r = log2(2)
N = 640*200*r = 640*200=128000 бит
</span>
Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
Последовательность.
Блин, это просто, он это будет делать по цепочке, как и перечислила его мать.