60 END
Задание№10
Вычислить с точностью е бесконечную сумму и указать количество учтенных слагаемых. S= 1 +1/4 +1/9 +…+1/N2
5 REM Вычисление бесконечной суммы с точностью е.
10 CLS
15 PRINT “Вычислить бесконечную суммупрогрессии с точностью е= 0.000S= 1 +1/4 +1/9 +…+1/N^2”
20 PRINT “Введите количество слагаемых N=”
25 INPUT N
30 S = 0
35 i = 1
45 IF (i = N) THEN 55
50 i = i +1: GOTO 40
55 PRINT “Суммы”; N; “членов прогрессии S=”;USING “#.###”; S
60 END
Задание №11
Подсчитать количество цифр в тексте. Распечатать все встречающие цифры.
05 REM Подсчет цифр.
10 CLS
15 PRINT “Вычисление цифр в тексте”
20 INPUT "Введите текст"; Stroka$
25 N% = 0
30 FOR I = 1 TO LEN(Stroka$)
35 Pstr$ = MID$(Stroka$, I, 1)
40 IF ASC(Pstr$) > 47 AND ASC(Pstr$) < 58 THEN N% = N% + 1: PRINT Pstr$
45 NEXT I
50 PRINT "Количество цифр в тексте ="; N%
55 END