Найти разность и произведение суммы цифр двух заданных чисел

@Сергей Студент · Регистрация: 22.12.2015

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

Даны два натуральных числа a, b. Найти разность и произведение суммы цифр этих чисел. Вычисление суммы цифр числа оформить в виде функции. Все надо сделать в Паскале . Заранее благодарю.

@bormant · 22.12.2015, 08:49

Pascal

function SumD(n: Longint): Intrger;
var s: Integer;
begin
  s:=0;
  while n<>0 do begin
    s:=s+n mod 10; n:=n div 10;
  end;
  SumD:=s;
end;
var a, b, sa, sb: Integer;
begin
  Write('Введите a b: '); ReadLn(a,b);
  sa:=SumD(a); sb:=SumD(b);
  WriteLn('Суммы цифр: ',sa,', ',sb,', их сумма: ',sa+sb,', разность: ',sa-sb);
end.

@Сергей Студент 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 2
		1
	Найти разность и произведение суммы цифр двух заданных чисел 22.12.2015, 08:21. Показов 5208. Ответов 1 Метки нет (Все метки) Даны два натуральных числа a, b. Найти разность и произведение суммы цифр этих чисел. Вычисление суммы цифр числа оформить в виде функции. Все надо сделать в Паскале . Заранее благодарю. 0

	22.12.2015, 08:49

Найти разность и произведение суммы цифр двух заданных чисел

Решение