Данная фраза'-40символов 1символ-8бит
Ответ =40бат
Был рад помочь!
var
str : string;
a, b : char;
count : integer;
begin
assign (input, 'file.txt'); reset (input);
while not eof do
begin
readln (str);
if length (str) > 1 then a := str[2]
else a := '1';
if length (str) > 1 then b := str[2]
else b := '1'; //Заведомо неверные данные
if (a ='+') and (b = '-') then inc (count);
end;
writeln (count);
end.
Бат файл - набор команд
екзешник на с++ химич
или <span>bat to exe converter в помощь</span>
var
a,b,c,n:integer;
begin
n:=0;
writeln("Введите 3 числа");
readln(a,b,c);
if a<0 then inc(n);
if b<0 then inc(n);
if c<0 then inc(n);
writeln("Из них ", n, " отрицательные.");
end.