Урок 12ю1 Задача 3

Primary tabs

Submitted by kuznmax on Sun, 04/24/2022 - 13:57

Forums:

Урок 12.1 Задача 3

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

Решение:

var e, v: char;
begin
  e := '&';
  repeat
    writeln('Введите символ(После каждого нажатия Enter)');
    readln(v);
    writeln(e);
  until (v = e) ;
end.
  • Log in to post comments
  • 1977 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:09

а где же в коде '#'? сравниваем по ходу с чем-то не тем)

_____________
матфак вгу и остальная классика =)

kuznmax

Mon, 05/02/2022 - 13:33 

var e, v, t: char;
begin
  e := '&';
  t := '#';
  repeat
    writeln('Введите символ(После каждого нажатия Enter)');
    readln(v);
    writeln(e);
    if  v = t then
      break
  until (v = e);
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:13

1)

  e := '&';
  t := '#';

-- добавить альтернативный вариант без использования этих переменных (просто используем два литерала)

+ переписать с уточнением условия в такой формулировке:

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу (не выводя ничего в ответ)

_____________
матфак вгу и остальная классика =)

kuznmax

Mon, 05/16/2022 - 15:41

Не туда