Question

ПОМОГИТЕ НАЙТИ ОШИБКУ Program2.pas(11) : Ошибка времени выполнения: Input string was not in a correct format. Выдает эту ошибку.uses graphABC;var name: string; n,c:integer;begin Writeln('Как тебя зовут?'); Readln(name); Writeln('Привет, ', name, '!','A я PC! '); Writeln('Сколько тебе лет?'); Readln(n); Writeln('Тебе', n, '!', 'A мне всего 5 лет! '); Writeln('Какую музыку ты любишь слушать?'); Readln(c); Writeln('Ничего себе!Я тоже люблю слушать ', c);end.

Answer 1

не Writeln а write in если не это то скобки но если и не это то хз

Answer 2

Проблема в вашем коде связана с чтением числа из строки в переменную c. Когда вы используете Readln(c) для чтения значения c, вы пытаетесь прочитать число из введенной строки, но переменная c объявлена как integer, и если пользователь вводит что-то, что нельзя преобразовать в число (например, буквы или символы), возникает ошибка "Input string was not in a correct format".

Для исправления этой ошибки, вам нужно прочитать строку с помощью Readln, а затем преобразовать ее в число с помощью функции StrToInt или Val. Вот исправленный код:

pascalCopy code
uses graphABC;

var
  name: string;
  n: integer;
  music: string;

begin
  Writeln('Как тебя зовут?');
  Readln(name);
  Writeln('Привет, ', name, '!',' Я PC!');
  
  Writeln('Сколько тебе лет?');
  Readln(n);
  Writeln('Тебе ', n, '!', ' Я всего 5 лет!');
  
  Writeln('Какую музыку ты любишь слушать?');
  Readln(music);
  Writeln('Ничего себе! Я тоже люблю слушать ', music);
end.

Теперь пользователь может ввести любую строку, и она будет сохранена в переменной music без возникновения ошибки "Input string was not in a correct format".