Преобразуй блок- схему в алгоритм на алгоритмическом языке или в программу на языке Паскаль.

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.

1 символ = 8 бит = 1 байт150*40*60=360000 (символов/байт)  это ответ и есть, но можно для удобства перевести в килобайты1 килобайт = 1024 байт360000/1024=351,5625ответ: 360000 байт или 351,5625 килобайт 

var n,i,k: integer;

begin

write('n = ');

readln(n);

i: =0;

k: =0;

while i< =n do

begin

if i mod 2 < > 0 then k: =k+1;

i: =i+1;

end;

writeln('k = ',k);

end.

пример:

n = 10

k = 5

где ты это пишешь. а ? что то не пойму.