89

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

20 февраля 2023

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

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

58

var c,x: integer; begin x: =1000; c: =0; while c<10 do begin if (x mod 10)+(x mod 100) div 10=(x div 100) mod 10+x div 1000 then begin writeln (x); inc (c) end; inc (x) endend.

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

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