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

@annya22 · Регистрация: 12.11.2016

Author24 — интернет-сервис помощи студентам

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

@Puporev · 04.02.2017, 09:33

Можно так.

Pascal

var a,b,c,d,k:integer;
begin
k:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
if (a+c)=(b+d) then
 begin
  write(a,b,c,d,' ');
  inc(k);
  if k mod 16=0 then writeln;
 end;
end.

@ZX Spectrum-128 · 04.02.2017, 09:38

Pascal

var
  i: integer;
 
begin
  for i := 1000 to 9999 do
    if i div 1000 mod 10 + i mod 10 = i div 100 mod 10 + i div 10 mod 10 then
      write(i:6);
end.

@annya22 0 / 0 / 0 Регистрация: 12.11.2016 Сообщений: 19
		1
	Найти все четырехзначные числа, у которых сумма первой и третьей цифр равны сумме второй и четвертой. 04.02.2017, 09:06. Показов 5364. Ответов 2 Метки нет (Все метки) найти все четырехзначные числа, у которых сумма первой и третьей цифр равны сумме второй и четвертой. Напишите программу, которая позволит вывести все такие числа. 0

	04.02.2017, 09:38

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

Решение