Из чисел от 10 до 99 вывести те, сумма цифр которых равна S

Категория: Delphi/Pascal

2011-12-13 15:19:57

code: #basic

INPUT "S=",S
FOR i=10 TO 99
IF i\10+i MOD 10 =s THEN PRINT i;" ";
NEXT i

автор: кот Бегемот

Поделиться:

Sample Code