Сколько четырехзначных чисел, у которых сумма первой и третьей цифр одинаковы

Сколько четырехзначных чисел, у которых сумма первой и третьей цифр одинаковы сумме 2-ой и четвертой. Напишите программу, которая позволит вывести все такие числа.
в паскале

Задать свой вопрос
1 ответ
Var a,b,c,d,e:integer;
begin
for a:=1000 to 9999 do begin
e:=a;
b:= e mod 10;
e:= e div 10;  
c:= e mod 10;
e:= e div 10;  
d:= e mod 10;
e:= e div 10;   
if (b+d)=(c+e) then writeln(a);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт