1

Процедура read(s2) не выполняется

Код

var
  s1, s2: string;
  h1, m1: integer;
begin
  read(s1);
  h1 := Strtoint(s1[1:3]);
  m1 := StrtoInt(s1[4:6]);
  read(s2);
  write(h1, m1);
end.

Работает так

12:25 (спросил s1)
1225

А надо так

12:25
(спрашивает s2)
1225 
2
  • ReadLn(s1);...ReadLn(s2);
    – user176262
    11 мая 2018 в 15:39
  • Спасибо, заработало
    – Qwinty
    11 мая 2018 в 15:45

1 ответ 1

0

Читайте строку:

ReadLn(s1);
...
ReadLn(s2);

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.