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

Question

89

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

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

ответить

в избранное ссылка

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

smol66 · Accepted Answer

58

smol66

03 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: