Страница 1 из 1
Задачи повышенной сложности по Турбо Паскалю
Добавлено: 12 ноя 2009, 16:35
DimaSharger
Даны цифры двух целых чисел: двузначного a2a1 и однозначного b, где а1-число единиц, а2-число десятков. Получить цифры числа, равного сумме заданных чисел (известно что это двузначное число). Слагаемое-двузначное число и число-результат не определять: условный оператор не использовать.
P.S задача списана с учебника Д.М Златопольского стр 21 задача 2,34.
Обязательно поблагодаряю автора лучшего решения
Re: Задачи повышенной сложности по Турбо Паскалю
Добавлено: 12 ноя 2009, 17:05
airyashov
могу предложить так, если правильно понял задачу
c2=a2+((a1+b) div 10)
c1=(a1+b) mod 10
Re: Задачи повышенной сложности по Турбо Паскалю
Добавлено: 12 ноя 2009, 17:12
DexterUa
Код: Выделить всё
uses Crt;
var
a2,a1,b:integer;
begin
write('Enter a2=');
readln(a2);
write('Enter a1=');
readln(a1);
write('Enter b=');
readln(b);
write (a2+(a1+b) div 10,(a1+b) mod 10);
ReadKey;
end.
Ой, уже написали =)
Re: Задачи повышенной сложности по Турбо Паскалю
Добавлено: 13 ноя 2009, 20:33
DimaSharger
airyashov писал(а):могу предложить так, если правильно понял задачу
c2=a2+((a1+b) div 10)
c1=(a1+b) mod 10
Большое спасибо Задача решена обсалютно правильно. И Так Же спасибо второму автору за то что полностью описал код программы