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

@net_haker1 · Регистрация: 02.10.2013

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

Ввести два числа. Найти сумму чисел из первых двух цифр каждого числа, используя процедуру , которая оставляет только первые две цифры числа. Например, даны 1234 и 5432,результат 12+54=66.

@Sead · 28.10.2013, 10:57

Числа именно четырёхзначные? 1000-9999?

@net_haker1 · 28.10.2013, 11:07 **[ТС]**

вроде да

@chizz · 28.10.2013, 11:17

Pascal

var  a,b:integer;
 
function getFirstN(input_value,n:integer):integer;
var s:string;
begin
s:=IntToStr(input_value);
if length(s)>n then
getFirstN:=StrToInt(copy(s,0,n))
 else
    getFirstN:=input_value;
end;
 
begin
 writeln('Введите 2 числа через пробел');
 read(a,b);
 writeln('сумма по условию задачи = ', getFirstN(a,2)+ getFirstN(b,2));
end.

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	Найти сумму чисел из первых двух цифр каждого числа 28.10.2013, 10:47. Показов 2554. Ответов 3 Метки нет (Все метки) Ввести два числа. Найти сумму чисел из первых двух цифр каждого числа, используя процедуру , которая оставляет только первые две цифры числа. Например, даны 1234 и 5432,результат 12+54=66. 0

@Sead 66 / 69 / 33 Регистрация: 07.10.2013 Сообщений: 396
	28.10.2013, 10:57	2
	Числа именно четырёхзначные? 1000-9999? 0

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
	28.10.2013, 11:07 [ТС]	3
	вроде да 0

	28.10.2013, 11:17

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

Решение