Информатика, опубликовано 2018-08-22 23:00:00 by Гость
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Ответ оставил Гость
var
str:string;
begin
readln(str);
if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write(Сумма равна)
else write(Сумма неравна);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.