100*512*8 бит = 409 600 бит = 51 200 байт = 50 кб
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
2 - зрения. 90% информации мы получаем визуально, если не ошибаюсь)
А)60*80*5/1024=23 Кб
б) при 64-символьном алфавите символ весит 6 бит.
60*80*5*6бит/8бит=18000бит