Информатика, опубликовано 2018-08-22 23:35:16 by Гость
Решение должно корректно работать в PascalABC.NET, версии не выше 2.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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.