Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.80
Roman10
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 17
#1

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

28.09.2010, 15:36. Просмотров 1974. Ответов 3
Метки нет (Все метки)

Дано двузначное число.Вывести вначале его левую цифру(десятки),а затем-его правую цифру(единицы). Для нахождения десятков использовать операцию деления нацело,для нахождения единиц-операцию взятия остатка от деления.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 15:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано двузначное число. Вывести вначале его левую, а затем правую цифру (Turbo Pascal):

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

дано двузначное число, определить равна ли его вторая цифра 5
дано двузначное число, определить равно его вторая цифра 5 yes-если равна...

Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а затем - нечетные.
Помогите: Дан целочисленный массив размера N. Вывести вначале все его четные...

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

Дан массив размера N. Вывести вначале его элементы с четными1|нечетными2 индексами, а затем — с нечетными1|четными2
Дан массив размера N. Вывести вначале его элементы с четными1|нечетными2...

Дано двузначное число. Определить, какая из его цифр больше, первая или вторая
Дано двузначное число. Определить, какая из его цифр больше, первая или вторая.

3
~Vadim~
3 / 3 / 1
Регистрация: 24.04.2010
Сообщений: 33
28.09.2010, 15:42 #2
Pascal
1
2
3
4
5
6
7
8
9
10
program z1;
var
k,n,m:integer;
begin
writeln('vvedie chislo');
readln(k);
n:=k div 10;
m:=k mod 10;
writeln(n,' ',m);
end.
1
Roman10
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 17
28.09.2010, 15:46  [ТС] #3
Спасыбо)))
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
28.09.2010, 15:48 #4
Ввод нужно проверять, например так.
Pascal
1
2
3
4
repeat
writeln('vvedie chislo ot 10 do 99');
readln(k);
until k in [10..99];
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2010, 15:48
Привет! Вот еще темы с решениями:

Условный оператор. Дано двузначное число. Определить, кратна ли трем сумма его цифр
1. Дано двузначное число. Определить: -кратна ли трем сумма его цифр; -кратна...

Дано двузначное число. Определить, какая из его цифр больше, первая или вторая(Pascal)
Дано двузначное число. Определить, какая из его цифр больше, первая или вторая.

Дан целочисленный массив. Напечатать его левую и правую диагонали
Дан целочисленный массив В. Напечатать его левую и правую диагонали. Знаю...

Дано двузначное (трехзначное) число. Написать программу определения, является ли сумма его цифр двузначным числом
Дано двузначное( трехзначное ) число. Написать программу определения: 1)...


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

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

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