78

Ребята помогите! Решать пыталась, но прога выводит ошибки! Найти все…

09 марта 2023

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

категория: информатика



48

Program Task1; vara,b,c,d,i: integer; beginfor 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.

Знаете ответ?


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