Есть число. Нужно удвоить его, а затем заменить 1 и 0 на A и B - Turbo Pascal
Формулировка задачи:
Есть число. Нужно удвоить его, а затем заменить 1 и 0 на A и B
Решение задачи: «Есть число. Нужно удвоить его, а затем заменить 1 и 0 на A и B»
textual
Листинг программы
Readln(n); n := n * 2; Str(n, s); for i:=1 to Length(s) do if s[i]='0' then s[i] := 'A' else if s[i]='1' then s[i] := 'B'; WriteLn(s);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д