Вообщем так ребят. В паскале по информатике я нуб. Хоть и плюсы даются хорошо. Помогите решить одну задачу, ну или хотя бы примерно объяснить.Билет с 4-значным номером является счастливым, если сумма первых двух цифр равно сум...
Вообщем так ребят. В паскале по информатике я нуб. Хоть и плюсы даются хорошо. Помогите решить одну задачу, ну или хотя бы примерно объяснить.
Билет с 4-значным номером является счастливым, если сумма первых двух цифр равно сумме двух последних. Определить, является ли билет счастливым.
Спасибо^-^
Гость
Ответ(ы) на вопрос:
ГостьProgram pr;
uses crt;
Var a,x1,x2,x3,x4:integer;
Begin
Writeln('Введите номер билета');
readln(a);
x1:=a div 1000;
x2:=(a div 100) mod 10;
x3:=(a mod 100) div 10;
x4:=a mod 10;
if (x1+x2=x3+x4)
then Writeln('Билет счастливый')
else Writeln('Билет не счастливый');
readln;
end.
Не нашли ответ?
Похожие вопросы