Вопрос по информатике:
Помогите решить задачу в PascalABC
1)Даны два числа. Найти сумму их десятков и сумму их единиц.
2)Дано число. Проверить, делится ли оно на 2, на 3 или на 5.
3)Найти разность пятизначного числа и числа, записанного этими же цифрами в обратном порядке.
- 21.08.2018 11:11
- Информатика
- remove_red_eye 5921
- thumb_up 24
Ответы и объяснения 1
1) var a,b:integer;
begin
readln(a,b);
writeln('Сумма единиц: ',a mod 10+b mod 10);
writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10);
end.
2)var a:integer;
begin
readln(a);
if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2');
if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');
if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5');
end.
3)var a,b,c:integer;
begin
readln(a);
c:=a;
while a>0 do begin
b:=10*b+a mod 10;
a:=a div 10;
end;
writeln(c-b);
end.
- 22.08.2018 02:42
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.