Question

На языке Паскаль,пожалуйста¡

Answer 1

var

 count, min, max: integer;

 str: string;

begin

 min := 191;

 max := 149;

 readln(str);

 while (str <> '!') do

 begin

   if (str.ToInteger in [150..190]) then

   begin

     if (str.ToInteger > max) then max := str.ToInteger

     else if (str.ToInteger < min) then min := str.ToInteger;      

     count := count + 1;

   end;

   readln(str);

 end;

 writeln(count);

 write(min, ' ', max);

end.

Answer 2

А для чего (str. Tolnteger in...)???

Answer 3

str - строка в которую мы вводим числа и !. str.ToInteger преобразует строку к целому числу, а in [x,y] проверяет находится ли число в диапазоне от x до y.

Answer 4

Дело в том,что когда я активировал эту программу,в ошибках мне написали,что «Tolnteger не объявлен в типе string((

Answer 5

Замени на strtoint(str)