Найти сумму всех двузначных чисел, имеющих в записи цифру 1 - QBasic

Формулировка задачи:

Найти сумму всех двузначных чисел, имеющих в записи цифру 1.
REM
REM  SUMMA = 593
REM
 
CLS
 
FOR x = 1 TO 9
FOR y = 0 TO 9
   IF x = 1 OR y = 1 THEN
      z = 10 * x + y
      S = S + z
   END IF
NEXT y, x
  
PRINT S
END

Код к задаче: «Найти сумму всех двузначных чисел, имеющих в записи цифру 1 - QBasic»

textual
FOR i=10 TO 91
IF i\10 =1 OR i MOD 10=1 THEN s=s+i
NEXT
PRINT s
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.429 из 5


СДЕЛАЙТЕ РЕПОСТ