Найти произведение всех положительных целых чисел от а до в

Var a,b,s,i: integer; begin s: =1; read(a,b); for i: =a to b do s: =s*i; writeln(s); end.

Var a,b,z: integer; begin readln(a,b); for a: =a to b do z: =a+b; writeln(z); end.

Могу в предложить в данном случае использовать goto и метки. ну, если вы имеете какой то признак неправильных данных, например, это отрицательные значения (предположим, что это неправильные данные) то на этапе, когда вы вводите эти значения, вы должны поставить условный оператор. т.е. if a< 0 tnen begin writeln('вы ввели неверные данные'); goto 1 else goto 2; метку 1 вы ставите в начало алгоритма, т.е. туда, откуда вы хотите начать повторное выполнение программы, а метку 2 поставить в продолжение алгоритма, т.е. на тот случай, если данные были введены верно

#include < bits/stdc++.h> using namespace std; int main() { freopen("input.txt","r",stdin); freopen("output.txt","w",stdout); string s; getline(cin, s); for (int i=0; i< s.length(); i++) { if (s[i]< ='9' & & s[i]> ='0') { int k=i; while (s[k]< ='9' & & s[k]> ='0') k++; string a=""; for (int j=0; j< i; j++) a=a+s[j]; a=a+"zz"; for (int j=k; j< s.length(); j++) a=a+s[j]; s=a; } } cout < < s; } //про пустые строки не поняла. могла где то допустить ошибку, но вроде все как то так