2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Помогите пожалуйста найти ошибку в программе...
Сообщение15.12.2009, 00:10 
Аватара пользователя
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? :wink:

 
 
 
 Re: Помогите пожалуйста найти ошибку в программе...
Сообщение15.12.2009, 18:46 
Аватара пользователя
:) пашет-))Фантом, большое спасибо!-))

 
 
 [ Сообщений: 3 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group