Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>
1) 16-4 степень 2 1 символ - 4 бита
2) 2 в степени 5 = 32 символа
3) 256 - 8 степень 2 1 символ - 8 бит 20*8=160 битов
4) 4*50=200 битов 5*60=300 битов Итого: 200+300=500 битов
5) 8*30*70=16800 битов
1.Начало. 2.Взять чайник. 3.Налить в чайник воды. 4.Поставить чайник кипеть. 5.Взять кружку. 6.Поставить на стол. 7.Открыть шкаф. 8.Взять заварку. 9.Закрыть шкаф. 10.Положить заварку в кружку. 11.Взять горячий чайник. 12.Налить кяпиток в кружку. 13 .Поставить чайник на место. 14. Конец