Предмет: Информатика,
автор: Джокер13
Вообщем так ребят. В паскале по информатике я нуб. Хоть и плюсы даются хорошо. Помогите решить одну задачу, ну или хотя бы примерно объяснить.
Билет с 4-значным номером является счастливым, если сумма первых двух цифр равно сумме двух последних. Определить, является ли билет счастливым.
Спасибо^-^
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Другие предметы,
автор: 87053737802nikit
Предмет: Алгебра,
автор: emirselimov230
Предмет: Русский язык,
автор: pavlyktatyanalirru
Предмет: Химия,
автор: Аноним