Uses crt;
var a,b,c,s,k : integer;
begin
writeln('Введите 3 числа :');
readln(a,b,c);
if a > 0 then
begin
k:= k + 1;
s:= a;
end;
if b > 0 then
begin
k:= k + 1;
s:= s + b;
end;
if c > 0 then
begin
k:= k + 1;
s:= s + c;
end;
writeln('Сумма чисел = ' , s);
writeln('Количество положительных чисел = ', k);
end.
Компьютерный алфавит состоит из 128 букв, по моему
Var
st: string;
i: byte;
sum: integer;
begin
st := 'БАЙТ';
for i:=1 to Length(st) do sum:=sum+ord(st[i]);
Writeln('Сумма кодов букв в слове БАЙТ = ', sum);
end.<span>
</span>