Question

Begin var s1,s2:string; print('Введите строки из произведения:'); read(s1); println('Введите автора строки:'); read(s2); print('Все ясно, делаешь вид что шаришь за', s2);end.Проблема:не хочет считывать вторую переменную. Программа PascalABC.NET 3.7.1

Answer 1

var s1,s2:string;

begin

 Write('Введите строки из произведения:');

 readln(s1);

 Write('Введите автора строки:');

 readln(s2);

 Write('Все ясно, делаешь вид что шаришь за', s2);

end.

Попробуй так.

Answer 2

Проблема в вашем коде связана с тем, что функция read не считывает строку, содержащую пробелы, как одну строку. Вместо этого она считывает только первое слово до первого пробела. Чтобы решить эту проблему, вы можете использовать функцию readln, которая считывает всю строку до символа новой строки. Вот исправленный код:

pascalCopy code
var
  s1, s2: string;
begin
  writeln('Введите строки из произведения:');
  readln(s1);
  writeln('Введите автора строки:');
  readln(s2);
  writeln('Все ясно, делаешь вид что шаришь за ', s2);
end.

Теперь программа будет считывать строки с пробелами корректно.