Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия, Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки
Program Mnozhestva; uses crt; var S1,S2,S3 : Set Of 1..100; i,n,k : integer; begin clrscr; S1:=[]; Writeln('Vvedite elementu mnozhestva A:'); repeat readln(k); S1:=S1+[k]; S2:=[]; Writeln('Vvedite elementu mnozhestva B:'); Repeat readln(k); S2:=S2+[k]; S3:=S1+S2; For i:=1 to 100 do if i in S3 then Write(i,' '); readln; end.
Выбивает ошибку Error 113: Error in statement. Но я не понимаю в чем моя ошибка...Помогите пожалуйста...
Фантом
Re: Помогите пожалуйста найти ошибку в программе...
15.12.2009, 00:29
А кто будет закрывать два открытых цикла repeat?
Igor
Re: Помогите пожалуйста найти ошибку в программе...