begin read(n, m); repeat writeln('Текущее значение N:', n, ' ,до m:', m - n); inc(n); until n = m; writeln('Завершено, n=m'); end.
Пример ввода: 12 20 Пример вывода: Текущее значение N:12 ,до m:8 Текущее значение N:13 ,до m:7 Текущее значение N:14 ,до m:6 Текущее значение N:15 ,до m:5 Текущее значение N:16 ,до m:4 Текущее значение N:17 ,до m:3 Текущее значение N:18 ,до m:2 Текущее значение N:19 ,до m:1 Завершено, n=m
CLS INPUT "введи число элементов последовательности"; m DIM a(m) FOR i = 1 TO m PRINT "введи"; i; "элемент последовательности"; INPUT a(m) IF a(m) > 0 THEN x = x + 1 IF a(m) = 0 THEN y = y = 1 IF a(m) < 0 THEN z = z + 1 NEXT i PRINT "количество положительных элементов последовательности равно"; x PRINT "количество нулевых элементов последовательности равно"; y PRINT "количество отрицательных элементов последовательности равно"; z END