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

Primary tabs

Submitted by Neoanthropus on Sun, 10/23/2022 - 16:47

Forums:

Задача 5 Урок 12.1:

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

Решение:

var n: char;
begin
  repeat
    writeln('vvedite simvol:');
    readln(n);
    if (n <>'#') then
      write('&');
  until (n <>'#'); // выход из цикла
  readln();
end.
  • Log in to post comments
  • 673 reads
vedro-compota's picture

vedro-compota

Sun, 10/23/2022 - 18:09

засчитано исправить

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

Neoanthropus

Sun, 10/23/2022 - 18:14 

var n: char;
begin
  repeat
    writeln('vvedite simvol:');
    readln(n);
    if (n <>'#') then
      writeln('&');
  until (n = '#'); // выход из цикла
  readln();
end.