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

Функции. Вернуть трехзначное число по известным цифрам и определить, кратно ли полученное число трем

29.04.2014, 21:54. Просмотров 1202. Ответов 1
Метки нет (Все метки)


Доброго времени суток! Не пойму, как из 3 отдельных цифр, введённых пользователем, получить 3-хзначное число. Если нужно, вот задание:
Напишите функцию, возвращающую трехзначное число по известным цифрам и определяющую-полученное число кратно трем или нет.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2014, 21:54
Ответы с готовыми решениями:

Задано трехзначное число, определить, кратно ли оно трем
Помогите найти ошибку. Задание: задано трехзначное число. Определить, не используя отыскание...

Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц
1.Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц.

Напишите функции, возвращающую двухзначное число по известным цифрам и корень квадратный из полученного числа
Здраствуйте, помогите написать программу. Напишите функции, возвращающую двухзначное число по...

Дано трехзначное число. Найти число десятков и единиц в том числе, сумму и произведение его цифрам
Дано трехзначное число.Знайты число десятков и единиц в том числе, сумму и произведение его цифрам

1
Модератор
8403 / 4155 / 2873
Регистрация: 17.08.2012
Сообщений: 13,249
30.04.2014, 05:45 2
Лучший ответ Сообщение было отмечено как решение

Решение

Ну, функции так функции...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function glue(a, b, c: integer): integer;
begin
  glue := 100 * a + 10 * b + c
end;
 
procedure di(s: string; var d: integer);
begin
  repeat
    write(s);
    readln(d);
    if (d < 0) or (d > 9) then writeln('It''s no digit, reenter.')
  until (d >= 0) or (d <= 9);
end;
 
var d1, d2, d3, n: integer;
begin
  di('Most significant digit = ', d3);
  di('Middle significant digit = ', d2);
  di('Least significant digit = ', d1);
  n := glue(d3, d2, d1);
  writeln('Number = ', n);
  writeln('Divide by 3: ', n mod 3 = 0);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2014, 05:45

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

Определить трехзначное число, которое кратно 2, 5, 7, а сумма цифр равна 12
определить трехзначное число, которое кратно 2,5,7, а сумма цифр равна 12.

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

Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц
2. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц...

Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево
Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево. Не...


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

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

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