Ребята помогите! Решать пыталась,но прога выводит ошибки! Найти все четырехзначные натуральные числа, у которых сумма крайних цифр равна сумме сред-них цифр, а само число делится на число А.!!!
Ответы
Ответ дал:
0
program Task1;
var
a,b,c,d,i: integer;
begin
for i:= 1000 to 9999 do
begin
a := i mod 10;
b := i div 10 mod 10;
c := i div 100 mod 10;
d := i div 1000 mod 10;
if (a + d = b + c ) then
writeln(i);
end;
end.
var
a,b,c,d,i: integer;
begin
for i:= 1000 to 9999 do
begin
a := i mod 10;
b := i div 10 mod 10;
c := i div 100 mod 10;
d := i div 1000 mod 10;
if (a + d = b + c ) then
writeln(i);
end;
end.
Ответ дал:
0
а последнее условие
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад