Вопрос по информатике:
Решение должно корректно работать в PascalABC.NET, версии не выше 2.2
Определить, равна ли сумма первых двух цифр натурального числа сумме последних двух цифр.
- 12.03.2018 11:47
- Информатика
- remove_red_eye 6000
- thumb_up 9
Ответы и объяснения 2
Var
n: integer;
s1, s2: integer;
begin
readln(n);
s1 := n mod 10 + n div 10 mod 10;
while n>99 do
n:=n div 10;
s2 := n mod 10 + n div 10 mod 10;
if s1 = s2 then
writeln('Равна')
else
writeln('Не равна');
end.
- 13.03.2018 12:57
- thumb_up 1
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
var
i,n,n1,e,s1,s2:integer;
s:string;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s); Val(Copy(s,1,2),n1,e);
s1:=(n1 div 10)+(n1 mod 10);
s2:=(n mod 10)+((n mod 100) div 10);
if s1=s2 then Writeln('Суммы равны')
else Writeln('Суммы не равны')
end.
Тестовое решение:
Введите натуральное число: 250370
Суммы равны
- 14.03.2018 13:34
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.