Создайте подпрограмму решающую задачу проверки целого числа A на кратность числу B

@OrgazmBobra · Регистрация: 22.05.2014

Author24 — интернет-сервис помощи студентам

2. Создайте подпрограмму решающую задачу проверки целого числа A на кратность
числу B. Пользователю предоставляется возможность последовательно ввести оба
числа, а программа определяет – делится ли число A на число B без остатка. Резуль-
тат анализа должен быть типа Boolean. Подпрограмму реализуйте в двух вариантах –
в виде процедуры и в виде функции.

@ildwine · 28.05.2014, 08:10

Pascal

{функция}
function krat(a, b : integer) : boolean;
begin
  if a mod b = 0 then krat := true else krat := false
end;
 
{процедура}
procedure krat(a, b : integer; var res : boolean);
begin
  if a mod b = 0 then res := true else res := false
end;

@OrgazmBobra 0 / 0 / 0 Регистрация: 22.05.2014 Сообщений: 7
		1
	Создайте подпрограмму решающую задачу проверки целого числа A на кратность числу B 28.05.2014, 07:04. Показов 1925. Ответов 1 Метки нет (Все метки) 2. Создайте подпрограмму решающую задачу проверки целого числа A на кратность числу B. Пользователю предоставляется возможность последовательно ввести оба числа, а программа определяет – делится ли число A на число B без остатка. Резуль- тат анализа должен быть типа Boolean. Подпрограмму реализуйте в двух вариантах – в виде процедуры и в виде функции. 0

	28.05.2014, 08:10

Создайте подпрограмму решающую задачу проверки целого числа A на кратность числу B

Решение