Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Redsnake
3 / 3 / 4
Регистрация: 16.11.2013
Сообщений: 102
Завершенные тесты: 1
#1

Есть число. Нужно удвоить его, а затем заменить 1 и 0 на A и B - Turbo Pascal

11.06.2014, 11:00. Просмотров 269. Ответов 1
Метки нет (Все метки)

Есть число. Нужно удвоить его, а затем заменить 1 и 0 на A и B
http://www.cyberforum.ru/turbo-pascal/thread244344.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2014, 11:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Есть число. Нужно удвоить его, а затем заменить 1 и 0 на A и B (Turbo Pascal):

Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем - его правую цифру (единицы)
Дано двузначное число. Вывести вначале его левую цифру (десятки), а затем - его...

Дано целое число превышающее 3 млн представление символьной строкой. Удвоить его и ответ вывести
Как это можно сделать? Да и условие не слишком ясно, объясните пожалуйста.

Дано двузначное число. Вывести вначале его левую, а затем правую цифру
Дано двузначное число.Вывести вначале его левую цифру(десятки),а затем-его...

Если число кратно 12, то найти произведение его цифр, иначе заменить число нулем
С клавиатуры вводится десять трехзначных чётных чисел. Если число кратно 12, то...

Заменить каждое число на число, которое получается из исходного записью его цифр в обратном порядке
Задано множество натуральных чисел. Заменить каждое из них на число, которое...

1
Sergio Leone
2462 / 1107 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
11.06.2014, 11:46 #2
Лучший ответ Сообщение было отмечено Redsnake как решение

Решение

заменить где? В числе нельзя, потому что это число.
Можно заменить в отображении числа (выводе).
А ещё можно получить строку, представляющую данное число и заменить цифры в этой строке:
Pascal
1
2
3
4
5
6
7
8
9
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);
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 11:46
Привет! Вот еще темы с решениями:

Заменить натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
Заменить данное натуральное число на число, которое получается из исходного...

Дано натуральное число - Количество его цифр есть четное число
Мой код. Program rb_2; uses crt; var c:string; begin clrscr; ...

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
Заменить данное натуральное число на число, которое получается из исходного...

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
6: ( сделать по теме:«Подпрограммы. Нерекурсивные процедуры и функции»)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru