Вот программа:
Var
A:array[1..20] of real;
i:integer;
S,P:real;
Begin
S:=0;
P:=1;
WriteLn('Введите 20 чисел:');
For i:= 1 to 20 do
Begin
Read(A[i]);
S:=S+A[i];
P:=P*A[i];
End;
WriteLn('S = ',S);
WriteLn('P = ',P);
End.
Вот блок-схема:
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=readinteger2('a,b->');
if a.IsEven then Writeln('a+b=',a+b) else
Writeln('a*b=',a*b);
end.
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ
1-2048
2-2
3-0,0024
Сравнения
3 байта =24бита
1536битов<1,5килобайта(1,5кб=12288 бит)