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

@malloy · Регистрация: 11.04.2017

Доброго времени суток! Не пойму, как из 3 отдельных цифр, введённых пользователем, получить 3-хзначное число. Если нужно, вот задание:
Напишите функцию, возвращающую трехзначное число по известным цифрам и определяющую-полученное число кратно трем или нет.

@Cyborg Drone · 30.04.2014, 05:45

Ну, функции так функции...

Pascal

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.

@malloy 0 / 0 / 0 Регистрация: 11.04.2017 Сообщений: 21
		1
	Функции. Вернуть трехзначное число по известным цифрам и определить, кратно ли полученное число трем 29.04.2014, 21:54. Просмотров 1202. Ответов 1 Метки нет (Все метки) Доброго времени суток! Не пойму, как из 3 отдельных цифр, введённых пользователем, получить 3-хзначное число. Если нужно, вот задание: Напишите функцию, возвращающую трехзначное число по известным цифрам и определяющую-полученное число кратно трем или нет. 0

Опции темы

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

Решение