Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 04.10.2010
Сообщений: 32
1

Дописать число в начало и конец двузначного числа

27.10.2010, 16:56. Показов 1245. Ответов 7
Метки нет (Все метки)

Здравстсвуйте!
Мне нужно как можно проще(с помощью линейного алг. и ветвления) написать вот такую программу с
Дописать число в начало и конец двузначного числа
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2010, 16:56
Ответы с готовыми решениями:

Дописать цифру k в начало и конец числа
Дано число n и цифра k. Дописать цифру k в начало и конец числа.

Дописать цифру k в начало и конец заданного числа
Дано число n. Дописать к нему цифру k в началои в конец.

Дописать цифры в начало и конец числа
Помогите пожалуйста написать программу Дано число Х и цифры Z и Y. Дописать цифры в начало и конец...

Дано натуральное число N. Дописать к нему цифру К в конец и начало
Помогите в написать программу, плезз "Дано натуральное число N £ 99. Дописать к нему цифру К...

7
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.10.2010, 16:57 2
Дописать число в начало и конец двузначного числа
А об этом числе ничего не известно?
0
Платежеспособный зверь
8754 / 4185 / 1608
Регистрация: 28.10.2009
Сообщений: 11,324
27.10.2010, 17:00 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a,b,d,m:longint;
begin
writeln('vvedite dvuznachnoe chislo');
readln(a);
writeln('vvedite chislo, kotoroe dopishem');
readln(b);
d:=b;
m:=1;
repeat
m:=m*10;
d:=d div 10;
until d=0;
writeln(b*100*m+a*m+b);
readln;
end.
0
0 / 0 / 0
Регистрация: 04.10.2010
Сообщений: 32
27.10.2010, 17:00  [ТС] 4
Puporev, нет к сожалению ничего не известно .
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.10.2010, 17:07 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var a,b,c,k:longint;
begin
clrscr;
repeat
write('Введите двухзначное число a=');
readln(a);
until a in [10..99];
repeat
write('Введите натуральное число не более 2146 b=');
readln(b);
until (b>0)and(b<=2146);
c:=b;
k:=100;
while c>0 do
 begin
  c:=c div 10;
  k:=k*10;
 end;
c:=b*k+a*(k div 100)+b;
write(c);
readln
end.
0
0 / 0 / 0
Регистрация: 04.10.2010
Сообщений: 32
27.10.2010, 17:22  [ТС] 6
Большое спасибо!
Но вот что значит longint?
0
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.10.2010, 17:28 7
Цитата Сообщение от карапот Посмотреть сообщение
Но вот что значит longint?
Если у тебя не Турбо Паскаль, пиши integer.
0
0 / 0 / 0
Регистрация: 04.10.2010
Сообщений: 32
27.10.2010, 17:37  [ТС] 8
Puporev, спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2010, 17:37

Дано натуральное число n<99. Дописать к нему цифру к в конец и в начало
Дано натуральное число n&lt;99. Дописать к нему цифру к в конец и в начало.

Дано натуральное число n Дописать к нему цифру k в конец и в начало
Дано натуральное число n. Дописать к нему цифру k в конец и в начало. (Visual Prolog)

Дано натуральное число N<99. Дописать к нему цифру К конец и начало
Дано натуральное число N&lt;99. Дописать к нему цифру К конец и начало.

Дано натуральное число n<=99. дописать к нему цифру k в начало и в конец
дано натуральное число n&lt;=99. дописать к нему цифру k в начало и в конец


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru