Algofil
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
I am not Liar, не помню уже какой вопрос у тебя неотвеченный, и искать было некогда, честно
Добавлено:
Цитата:| внизу, где пишешь сообщение, слева есть серый шарик |
угу, пасип, я б никогда не нашел, у меня по старой привычке, отображаются тока кэшированные рисунки )))
Цитата:| а че компилятор пропил что ле? |
- хуже, на хозяина работаю под орацлом, все под контролем )))
Цитата:| Спасиба те огромное за алгоритм)) |
пожалуйста, хотя это и не алгоритм, а скорее воспоминания, но все равно приятно что опыт (который не пропьешь, не то шо компилятор) кому-то еще нужен... прошу прощения за олбанский, настроение было с похмела (накануне днюха была) соответствующее
pkitman, лови, все работает, но каменты лень писать...
var
a,b,c:array [1..3] of integer;
i,j,n:integer;
flag:boolean;
begin
for i:=1 to 3 do readln(a[i],b[i]);
for i:=1 to 3 do begin
flag:=true;
for j:=1 to 3 do if a[i]=b[j] then flag:=false;
if flag then begin c[n+1]:=a[i]; inc(n) end;//then
end;//for i
for i:=1 to n do writeln(c[i]);
end. |
, просто ты написал ее русскими буквами, а я чот затупил(думал что это какое та олбанское слово) 