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

disel
1
2
3
4
INPUT "S=",S
FOR i=10 TO 99
IF i\10+i MOD 10 =s THEN PRINT i;" ";
NEXT i

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment